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Basicium.… Gérard 
Michel 


photocomposition : le Basic 


enrichi Apple 
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l 7 
G est facile Cet utilitaire vous à D 


colonnes. Ces 


C'est économique permet de : és ee 
et ça Va vite! en pra 


JA". 


Imprimer 
l'écran 40 ou 


80 colonnes 
par “] 


Les textes de vos 
articles, catalogues, 
annuaires ou 
brochures saisis sur 
votre micro-ordinateur 
sont envoyés 
directement sur notre 
photocomposeuse. ppm 


Saisir toutes les 
variables d'un 
écran en une seule 





commande "]l" en 

Neroyer contrôlant le type 
mémoire très et la longueur. 

rapidement 
par à 2 


Nous vous évitons 
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charger de l'impression 
et du brochage. 
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Apple ferme trois usines et licencie 1 200 personnes. Est-ce la fin de notre beau rêve ? Certes non car, dans 
la foulée, nous apprenons aussi les informations suivantes : 


° IBM, après avoir abandonné le PC Junior, annonce une forte baisse de ses bénéfices; 
° Hewlett Packard pratique du chômage technique sur 4 500 salariés; 
° Xerox a de grosses difficultés; 


° Wang licencie 1 500 personnes; Editorial 


° Data General licencie 1 300 personnes; 
° Control Data et Honeywell ferment des unités; 
© Atari annonce trois mois de retard sur le “Jackintosh", le futur concurrent du Macintosh; 


c enfin, on ne compte plus les distributeurs qui, quelle que soit leur taille, déposent leur bilan ou 
deviennent soudainement mauvais payeurs. 


Est-ce à dire que la vague de la micro-informatique est définitivement enrayée ? Certes pas ! Selon l'avis de la 
plupart des professionnels, qui ne se trompent quand même pas tout le temps, il s'agit là d'une période de 
consolidation. Une fois que tout sera rentré dans l'ordre, la micro-informatique devrait retrouver un rythme de 
croissance qui, entre 15% et 20% par an, sera plus calme que ce que nous avons vécu ces dernières années, 
mais beaucoup moins vulnérable. 


En tous cas, la confiance en Apple ne manque pas puisqu'il y a maintenant trois revues entièrement consacrées 
au Macintosh, avec Infomac, Mic Mac et, plus récemment, Icônes. Ceci dit, Pom's reste la seule revue au 
monde où les amateurs de Mac trouveront, outre des informations, des programmes permettant de s'immiscer 
dans le Mac et de réellement comprendre et exploiter son mode de fonctionnement. Les amateurs d'Apple II, 
quant à eux, en auront aussi pour leur argent : fidèle à ses promesses, Pom's maintient le nombre de pages 
consacrées à la famille du 6502. 


Nous vous remercions tous de votre réponse à Apple Expo, où le seul problème rencontré à notre stand était 
parfois le trop grand nombre de lecteurs venus se réabonner ou tout simplement pour nous dire bonjour. 
Rendez-vous à la boutique Sicob (Porte Maillot ) où nous vous recevrons au stand M279. 


Chose promise dans le précédent numéro, chose due : dans ces pages vous trouverez l'analyseur de syntaxe par 
disquettes entières de Carlos Sacré. 

Sans entrer dans le détail du sommaire, plusieurs titres sont à souligner : 

Au chapitre "Operating System", le catalogue Multi-Sed d'Alain Gogniat et la disquette mixte Dos/Pascal de 
François Sermier. 

Au chapitre initiation, l'approche de l'intelligence artificielle de Guido Bettiol, la méthode PERT en Basic 
de Serge Caftan et, toujours pédagogique, l'utilisation de la carte langage par Gérard Michel. 

Au chapitre initiés, le catalogue à l'aide de la souris de Patrice Neveu dont le source trop volumineux n'a pu 
être listé dans la revue. 

Au chapitre utilitaires, un patch d'Yvan Koenig pour un hard-copy de la page graphique haute résolution et 
la création de caractères programmables sur l'ImageWriter de Jean-Pierre Vinter. 

Au chapitre Macintosh, un nouvel accessoire de bureau Lucy in the Sky with Diamonds (!) dû à Jean-Luc 
Bazanegue dont le source est impressionnant; un accessoire-clin-d'œil d'Evelyne Gorin et deux utilitaires 
indispensables de Julien Thomas et Marianne Sutz. 

Enfin, au chapitre offre d'emploi, nous sommes toujours à le recherche d'un collaborateur à temps plein ayant 
des connaissances très élevées au niveau de l'assembleur 6502, ou au moins d'un collaborateur à mi-temps 
maîtrisant parfaitement l'assembleur, le [lc et le ProDOS. 





Bonnes vacances ! 


Hervé Thiriez 


Ont collaboré à ce numéro : Jean-Luc Bazanegue, Guido Bettiol, Serge Cattan, Cécile Derrien, 
Alexandre Duback, Alain Gogniat, Evelyne Gorin, Jean-Michel Gourévitch, Guy d'Herbemont, Olivier Herz, 
Yvan Koenig, Gérard Michel, Patrice Neveu, Carlos Sacré, François Sermier, Marianne Sutz, Julien Thomas, 
Jean-Pierre Vinter. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Dessins : Laurent Bidot. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Editions MEV - 49, rue Lamartine - 78000 Versailles - Tél. : (3) 951.24.43. 

Publicité : Consulter les Editions MEV. 

Diffusion : N.M.P.P. 

Composition : Télécompo - 13/15, avenue du Petit Parc - 94300 Vincennes - Tél. : 328.18.63. 
Impression : Rosay - 47, avenue de Paris - 94300 Vincennes - Tél. : 328.18.63. 
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Un analyseur de syntaxe en langage 


machine 


Carlos Sacré 


Le but de ce logiciel est la détection 
des erreurs de syntaxe dans les pro- 
grammes écrits en Basic APPLE- 
SOFT. La syntaxe est la technique 
d'écriture des divers symboles 
composant une instruction, de façon 
que l'interpréteur Basic puisse la 
comprendre. Le remplacement d’un 
“point-virgule” par un “deux-points”, 
l'oubli d'une parenthèse, la substitu- 
tion d’une variable numérique A à 
une variable alphanumérique Af, 
sont des erreurs de syntaxe. Les er- 
reurs de logique (AND au lieu de 
OR, branchement au moyen d’un 
GOTO à l'intérieur d’une boucle 
FOR... NEXT... etc...) sont d’un type 
tout à fait différent, et sortent du 
cadre de cet article. 


Tout programmeur, même novice, 
sait qu'il ne suffit pas qu’un pro- 
gramme d'une certaine ampleur ait 
fonctionné une ou plusieurs fois pour 
qu'il soit exempt de toute erreur : 
une utilisation qui fait intervenir une 
ligne rarement appelée peut en effet 
apporter une interruption surprise, 
désagréable au beau milieu d’une 
partie intéressante, 
gramme de gestion. Chacun sait 
aussi qu'il est particulièrement facile 
d'introduire une "bête erreur’ quand 
on met au point ou que l'on modifie 
un programme. D'où l'intérêt d’avoir 
un logiciel permettant de vérifier rapi- 
dement la parfaite correction de ses 
programmes. 


Le système présenté ci-dessous est 
adapté aussi bien à une vérification 
fréquente en cours de mise au point, 
qu'au contrôle sytématique en une 
seule opération de tous les program- 
mes Basic APPLESOFT d'une face 
de disquette. 


Mode d'emploi 
du système 


a) Vérification d'un programme isolé, 
déjà résident en mémoire vive. Il suf- 
fit de commander ‘BRUN SNTX' 
après avoir placé dans le lecteur 
voulu une disquette avec ce pro- 
gramme binaire. Des appels ulté- 
rieurs nécessités par la mise au point 
du programme Basic peuvent se faire 
simplement par "CALL 35072" ou 
"&”, tout au moins tant que HIMEM: 
ou l'adresse de & n'ont pas été mo- 
difiés (par exemple par un essai in- 
termédiaire du programme Basic si 
celui-ci modifie cet environnement). 
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ou d'un pro-. 


b) Vérification d'un ou plusieurs pro- 
grammes implantés sur une dis- 
quette. Placer dans le lecteur 1 une 
disquette non protégée en écriture, 
comportant SNTX, SYNTAXE, SYNAXE- 
TEST, FINSYNTAXE, et commander 
"RUN SYNTAXE, D1”. 

On a alors la possibilité d'obtenir des 
renseignements sur le fonctionne- 
ment du système, puis on est invité à 
placer dans le drive 2 la disquette B 
à tester, et enfin à choisir une op- 
tion : soit tester un seul programme, 
soit tester tous les programmes de la 
disquette. Après le test, on peut re- 
commencer avec une nouvelle dis- 
quette B, ou reprendre la main: 
dans ce dernier cas, les pointeurs du 
DOS sont replacés dans leur état 
normal par la commande ”’FP”. 


NDLR : dans le cas b), il est préféra- 
ble d'avoir dans le lecteur 1 une 
copie de sauvegarde et non un origi- 
nal, car l'opération peut parfois, pour 
des raisons (dues au DOS) qui nous 
échappent, ‘planter le système. Il 
est conseillé de protéger contre l'écri- 
ture la disquette du lecteur 2. 


Mode de fonctionnement 
du système 


Programme (binaire) SNTX : 


C'est le coeur du système : écrit en 
langage machine grâce à l'assem- 
bleur LISA 2.5, c'est lui qui effectue 
le test proprement dit. Il décode ligne 
par ligne, instruction par instruction, 
octet par octet, tout le programme 
Basic résident en mémoire vive. Il af- 
fiche à l'écran le numéro de ligne, le 
rang de l'instruction dans la ligne, et 
une brève appréciation telle que 
"CORRECT”, “VIDE” (ligne réduite 
à un:, ou:: dans une ligne), ”’INS- 
TRUCTION REM'.. Toutes les 
commandes du Basic APPLESOFT 
sont étudiées en détail, sauf *USR", 
"CALL”, "&'” (qui sont parfois sui- 
vies de paramètres que SNTX ne 
pourrait interpréter), “DATA” (c'est 
au concepteur à ne pas mélanger les 
types de données) et "GET" numéri- 
que (GET A est déconseillé : il faut 
utiliser GET A$). pour lesquelles 
l'instruction est listée. Il appartient à 
l'utilisateur de vérifier la syntaxe de 
ces instructions. selon leur rôle dans 
le programme. De plus. SNTX 
contrôle l'existence dans le pro- 
gramme de toute ligne susceptible 
‘être appelée par un ‘“GOTO”:. 





"GOSUB”, "ON GOTO”, ‘ON 
GOSUB” ou ’ONERR GOTO”’. 


Le défilement à l'écran est très ra- 
pide (plus que pour un listing !), mais 
il est toujours possible de le suspen- 
dre, grâce à Ctrl-S, pour une étude 
approfondie des messages. Dès 
qu'une erreur est décelée, le test est 
provisoirement interrompu avec 
émission d’un ”’bip”, l'instruction in- 
criminée est listée, avec les éventuels 
caractères de contrôle en affichage 
clignotant, et le type de l'erreur est 
signalé par un bref message. L'utili- 
sateur peut donc noter le renseigne- 
ment souhaité, puis commander la 
reprise du test en enfonçant n'im- 
porte quelle touche. 

Certains défauts d'écriture tolérés à 
l'exécution par l'interpréteur Basic 
sont relevés; par exemple, l’omission 
des guillemets terminant une chaîne 
dans une instruction PRINT” (c'est 
dangereux quand il ne s’agit pas de 
la dernière instruction de la ligne !). 
SNTX est implanté à l'adresse $8900 
(en décimal 35072), ce qui lui per- 
met d'étudier des programmes Basic 
ayant jusqu'à 130 secteurs. Il place 
HIMEM: à cette adresse, ainsi que le 
vecteur d'appel de la commande am- 
persand (&). SNTX étant très court 
(13 secteurs), il est utile de le copier 
sur de nombreuses disquettes, en 
particulier celles qui servent pour les 
travaux courants. 


Programme (Basic) SYNTAXE 


C'est le programme qui permet de 
lancer la vérification automatique de 
tous les programmes Basic d’une 
face de disquette, sans intervention, 
sauf bien sûr pour relever les éven- 
tuelles erreurs. Il initialise le système, 
charge SNTX, renseigne l'utilisateur 
et lance SYNTAXETEST. 


Programme (Basic) SYNTAXE- 


TEST 


Il crée sur la disquette A (lecteur 1, 
avec le système) un fichier 
SNTX.EXEC établi à partir du catalo- 
gue de tous les programmes Basic 
APPLESOFT de la disquette B (lec- 
teur2), ou d'un seul si on a choisi 
cette option, en négligeant tous les 
autres fichiers écrits sur cette dis- 
quette. SYNTAXETEST commande 
enfin l'exécution de SNTX.EXEC. 


Fichier (texte) SNTX.EXEC 


Il traite successivement tous les pro- 
grammes voulus (chargés depuis B, 
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puis testés), automatiquement sauf 
en cas d'erreur : interruption puis re- 
démarrage manuel comme pour l’uti- 
lisation au coup par coup. 
SNTX.EXEC passe ensuite la main à 
FINSYNTAXE. 


Programme (Basic) 
FINSYNTAXE 


Il efface de la disquette A le fichier 
SNTX.EXEC, puis, suivant le choix, 
rend la main après avoir commandé 


"FP”, ou relance SYNTAXETEST 
pour l'exploration d'une autre face 
de disquette. 


Comment faire avec un seul lec- 
teur ? 


Le système de contrôle automatique 
est normalement prévu pour deux 
drives; il est possible de l'adapter 
pour un seul: modification des don- 
nées RWTS dans le programme 
SYNTAXETEST (de façon à faire lire 
le catalogue dans le lecteur 1), inter- 


ruptions pour demander le change- 
ment de disquette, avant d'écrire 
SNTX.EXEC, et après la fin du test. 
Toutefois, il ne pourra alors tester 
que des disquettes non protégées en 
écriture et comportant suffisamment 
de place disponible pour le fichier 
SNTX.EXEC (environ un secteur 
pour deux programmes Basic sur la 
disquette). 


————————— 





Programme SYNTAXETEST 


10 D$= CHRS$ (13)+ CHRS$ (4) 

20 DIM A$(104) 

30 TEXT : HOME 

35 VTAB 5: HTAB 9: PRINT "ENTREZ LES DISQUETTES 


40 VTAB 9: PRINT "DRIVE 1 : SYSTEME DE DETECTION 
D'ERREURS DE SYNTAXE." 

50 PRINT : PRINT : PRINT "DRIVE 2 : DISQUETTE AVEC 
LE OÙ LES PRO- GRAMMES A TESTER." 

60 VTAB 23: HTAB 20: GET A$ 

70 HOME : VTAB 10: PRINT "1 TEST D'UN SEUL 


PROGRAMME" 

80 PRINT : PRINT : PRINT "2 TEST DE TOUS LES 
PROGRAMMES APPLE-  SOFT DE LA 
DISQUETTE" 


90 PRINT : PRINT : PRINT "ESC POUR ANNULER" 

100 PRINT : PRINT : HTAB 2 

110 GET A$: IF A$ < > "1" AND AS$ < > "2" AND AS < > 
CHRS (27) THEN 110 

120 IF A$= CHRS (27) THEN 10000 

500 FOR I = 768 TO 796: READ X: POKE I,X: NEXT | 

530 PRINT D$"OPEN SNTX.EXEC,D1" 

540 IF A$ = "2" THEN 2000 

1000 HOME : VTAB 10: REM UN SEUL PROGRAMME 

1010 PRINT "NOM DU FICHIER BASIC A TESTER :: 
PRINT 

1020 INPUT “:F$ 

1030 PRINT D$"WRITE SNTX.EXEC" 

1040 PRINT "TEXT:HOME:PRINT" CHRS (34)F$ CHRS 
(34) 

1050 PRINT "POKE34,2" 

1060 PRINT "LOAD *F$",D2" 

1070 PRINT "CALL 35072" 

1090 GOTO 3000 

2000 HOME : VTAB 12: HTAB 5: PRINT "CREATION D'UN 
FICHIER CATALOGUE.” 

2010 POKE 34,20: VTAB 22 

2020 FOR SE = 15 TO 1 STEP - 1: REMTEST 
DISQUETTE 

2030 POKE 781,SE: CALL 768 

2040 FOR F = 0 TO 6:FI = 105 - 7 * SE + F:AS$(FI) =” 

2050 AD = 149 * 256 + 11+F* 35 

2060 IF PEEK (AD) > 35 THEN 2100 

2070 CO = PEEK (AD + 2): IF CO < > 2 AND CO < > 130 
THEN 2100 
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2080 FOR 1 = 3 TO 32:A$(FI) = A$(FI) + CHR$ ( PEEK (AD 
+ 1): NEXT | 

2090 IF PEEK (AD + 33) > 130 THEN PRINT "FICHIER 
"A$(FI): PRINT "TROP LONG; NE PEUT ETRE 
TRAITE !!!": PRINT CHRS (7): GET A$:A$(FI) =” 

2100 NEXT F,SE 

2110 PRINT D$"WRITE SNTX.EXEC" 

2120 FOR Fi= 0 TO 104 

2130 IF A$(FI) =” THEN 2180 

2140 PRINT "TEXT:HOME:PRINT" CHRS (34)A$(FI) CHRS$ 
(34) 

2150 PRINT "POKE34,2" 

2160 PRINT "LOAD "A$(FI)",D2" 

2170 PRINT "CALL 35072" 

2180 NEXT FI 

3000 REM CLOTURE FICHIER 

3010 PRINT "RUN FINSYNTAXE,D1" 

3020 PRINT D$"CLOSE SNTX.EXEC" 

3030 TEXT : HOME 

3040 PRINT D$"EXEC SNTX.EXEC,D1" 

3050 END 

10000 TEXT : HOME 

10010 PRINT D$"FP" 

10020 END 

60000 DATA 169,3,160,8,32,217,3,96: REM APPEL 

RWTS 
60010 DATA 1,96,2,0,17,15,25,3,0,149,0,0,1,0,0,96,1: 
REM l0B 
60020 DATA 0,1,239,216: REM DCT 





Programme FINSYNTAXE 


10D$= CHR$ (13)+ CHRS (4) 
20 PRINT DS"DELETE SNTX.EXEC,D1" 
30 PRINT CHRS$ (7) CHRS (7) CHRS (7)"ENCORE (ON) ? 


40 GET A$: IF A$ < > "O" AND A$ < > "N” THEN 40 
50 TEXT : HOME 

60 IF A$ = "N” THEN 90 

70 PRINT D$"RUN SYNTAXETEST,D1" 

80 END 

90 PRINT D$"FP" 

100 END 
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RAR BR EN 


gx: 
mis 


us 


* 
*s 








Programme SYNTAXE 


10 HIMEM: 35072 
20 D$= CHRS$ (13)+ CHRS (4) 
30 TEXT : HOME 
40 VTAB 12: HTAB 6: PRINT "DETECTION D'ERREURS 
DE SYNTAXE" 
50 PRINT : HTAB 5: PRINT "SYSTEME ELABORE PAR 
CARLOS SACRE" 
60 PRINT D$"BLOAD SNTX" 
70 POKE 35116,96: REM PERMET L'UTILISATION DE 
SNTX COMME SOUS-PROGRAMME 
80 VTAB 24: HTAB 20: GET A$ 
90 HOME : VTAB 12: PRINT "DESIREZ-VOUS DES 
INFORMATIONS (O/N) ? ”; 
100 GET AS: IF A$ < > "O" AND A$ < > "N” THEN 100 
110 IF A$ = "N” THEN 290 
120 HOME : VTAB 9 
130 PRINT" CE SYSTEME PERMET DE DECELER, 
DANS": PRINT : PRINT "LES PROGRAMMES EN 
BASIC APPLESOFT, LES" 


135 PRINT : PRINT "ERREURS DE SYNTAXE, AINSI QUE 


L'ADRESSA-": PRINT "GE PAR DES 'GOTO’, 


‘GOSUB;', 'ONERR' A”: PRINT : PRINT "UNE LIGNE 


INEXISTANTE .” 

140 VTAB 24: HTAB 20: GET A$ 

150 HOME 

160 PRINT” IL SIGNALE ET LISTE LES INSTRUC-": 
PRINT : PRINT "TIONS DANS LESQUELLES 
FIGURENT LA FONC-": PRINT : PRINT "TION 'USR 


170 


180 


220 
230 


240 


250 
260 


270 


PRINT : PRINT" LA COMMANDE 'CTRL-S' PERMET 
DE”: PRINT : PRINT "SUSPENDRE LE DEFILEMENT 
A L'ECRAN .” 

PRINT : PRINT : PRINT : PRINT" LES ERREURS 
DE SYNTAXE DONNENT LIEU": PRINT "A UNE 
INTERRUPTION DU TEST, DE MANIERE": PRINT : 
PRINT "A PERMETTRE A L'UTILISATEUR DE NOTER 
LA”: PRINT : PRINT "LIGNE DE L'INSTRUCTION 
INCORRECTE .” 

VTAB 24: HTAB 20: GET A$ 

HOME : VTAB 6 

PRINT" CERTAINS DEFAUTS TOLERES PAR 
L'IN-": PRINT : PRINT "TERPRETEUR SONT 
RELEVES, PAR EXEMPLE": PRINT : PRINT 
"L'OMISSION DES GUILLEMETS APRES UNE": 
PRINT : PRINT "CHAINE TERMINANT UNE LIGNE ." 
PRINT : PRINT : PRINT 

PRINT” LA TAILLE DES PROGRAMMES TESTES": 
PRINT : PRINT "EST LIMITEE À 130 SECTEURS .” 
VTAB 24: HTAB 20: GET A$ 

HOME : VTAB 7 

PRINT” LA SUITE DU DEROULEMENT DE CE 
PRO-": PRINT : PRINT "GRAMME NECESSITE 2 
DRIVES . IL EST”: PRINT : PRINT "TOUTEFOIS 
POSSIBLE AVEC UN SEUL DRIVE DE": PRINT 
"TESTER UN PROGRAMME ISOLE RESIDANT EN" 
PRINT : PRINT "MEMOIRE VIVE, PAR LA 
COMMANDE :": PRINT : PRINT "BRUN SNTX' .” 


280 VTAB 24: HTAB 20: GET A$ 
290 PRINT D$"RUN SYNTAXETEST” 





OÙ LES INSTRUCTIONS '&’,": PRINT : PRINT 300 END 
"CALL','DATA'.” 
Programme 32 HOME EQU $SFC58 68 HBY TXLIGNE 
SYNTAXE.TEXT 33 CR EQU $FC62 L che ne 
34 ; 
(Assembleur LISA 2.5) de SON JS Ut n GTR TINSTR 
36 ; 92 3 
D OGAMAMONRH AE He He ee D He D HO 37 ;&, HIMEM:, POINTEUR 73 ;PASSAGE INSTRUCTION SUIVANTE 
2 ;* * 38 LDA #$4C 74 NINSTR  LDA #$0B 
3 ;* DETECTION DES ERREURS DE #* 39 STA $3F5 75 STA $24 
4 ;* * 40 LDA #500 76 JSR SETINV 
5 ;* SYNTAXE EN BASIC APPLESOFT * 41 STA 573 77 LDA INSTR 
6 ;* * 42 STA $3F6 78 STA LN 
CR LLLLELLEELLEEELELE ELLES EEE 43 LDA #589 79 LDA #500 
8 ; 44 STA $74 80 STA LN+1 
9 ORG $8900 45 STA $3F7 81 JSR CODAGE 
10 ; 46 LDA 567 82 HEX A9 
11 ;POINTE DANS LE PROGRAMME BASIC 47 STA PTR 83 BYT NUMLIN+3 
12 PTR EPZ $06 48 LDA 568 84 HEX AO 
13 NL EPZ $08 49 STA PTR+1 85 HBY NUMLIN+3 
14 LN EPZ $18 50 ; 86 JSR STROUT 
15 ; 51 ;PASSAGE À LA LIGNE SUIVANTE 87 JSR SETNORM 
16 ; POINTEUR DE PILE 52 BOUCLE JSR INCPTR 88 INC 524 
171 EPZ $1D 53 STA NL 89 LDX #$00 
18 DRGET EPZ $1E 54 JSR INCPTR 90 STX I 
19 INSTR EPZ $CE 55 STA NL+1 91 STX ERR 
20 ERR EPZ $CF 56 ORA NL 92 JSR TRAIINS 
21 sup EPZ $EB 57 BNE >1 93 PHA 
22 EGA EPZ $EC 58 JMP $03D0 94 CPX #507 
23 INF EPZ $ED 59 1 JSR INCPTR 95 BNE >1 
24 LNG EPZ $EE 60 STA LN 96 LDY ERR 
25 LIN EPZ SFA 61 JSR INCPTR 97 BEQ >1 
26 PILE EQU $300 62 STA LN+1 98 LDX #508B 
27 SETINV EQU S$FE80 63 JSR CODAGE 9g *1 TXA 
28 SETNORM EQU $FE84 64 JSR SETINV 100 AND #$0F 
29 BELL EQU $FF3A 65 HEX A9 101 PHA 
30 COUTI EQU $FDFO 66 BYT TXLIGNE 102 CMP #501 
31 STROUT EQU $DB3A 67 HEX AO 103 BEQ >2 
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104 CMP #$02 


105 BNE >3 

106 “2 PHA 

107 TXA 

108 LSR 

109 LSR 

110 LSR 

111 LSR 

112 ADC #$0E 
113 JSR MESSERR 
114 PLA 

115 *3 JSR MESSERR 
116 PLA 

117 PHA 

118 CMP #$07 
119 BEQ >4 

120 CMP #$08 
121 BEQ >4 

122 CMP #$0C 
123 BEQ >4 

124 JSR LISTING 
125 “4 PLA 

126 CMP #$07 
127 BCS >6 

128 JSR BELL 
129 STA $C010 
130 *5 LDA $C000 
131 BPL <5 

132 STA $C010 
133 *6 INC INSTR 
134 PLA 

135 BNE NINSTR 
136 JMP BOUCLE 
137 ; 


138 ;COMPARE ACC. AU CARACT POINTE 


139 COMPAR LDY #$00 

140 CMP (PTR),Y 
141 BNE >1 

142 JSR INCPTRI 
143 TYA 

144 "1 RTS 

145 ; 

146 ;LIT LE CARACTERE POINTE 
147 INCPTR LDY #$00 

148 LDA (PTR),Y 
149 ; 

150 ;INCREMENTE LE POINTEUR 
151 INCPTR1 INC PTR 

152 BNE >1 

153 INC PTR+1 

154 *1 RTS 


155 ; 
156 ;DECREMENTE LE POINTEUR 
157 DECPTR SEC 


158 LDA PTR 
159 SBC #$01 
160 STA PTR 
161 BCS >1 
162 DEC PTR+1 
163 “1 RTS 

164 ; 


165 ;EMPILE LE POINTEUR 
166 EMPILE LDY I 


167 LDA PTR 
168 STA PILE,Y 
169 INY 

170 LDA PTR+1 
171 STA PILE,Y 
172 INY 

173 SP*X I 

174 RTS 

175 DEPILE DEC I 

176 DEC I 

177 RTS 

178 ; 


179 ;RESTAURE LE POINTEUR EMPILE 
180 RESTAURE LDY I 
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LDA PILE,Y 
STA PTR 


LDA PILE,Y 
STA PTR+1 


î 


DIVISION PAR 10 
DIVISE LDX #$10 
LDA #$00 


#1 CMP #$0A 


n2 ROL LN 


BNE <1 


; TRADUCTION HEXA --> DECIMAL 
CODAGE LDY #$04 
gl JSR DIVISE 
ADC #$30 
STA NUMLIN,Y 
DEY 
BPL <1 
INY 
n2: LDA NUMLIN,Y 
CMP #$3C 
BNE >3 
LDA #$20 
STA NUMLIN,Y 
INY 
CPY #$04 
BNE <2 
#3 RTS 


; 


3; AFFICHAGE D'UN MESSAGE 
MESSERR ASL 
TAX 
INX 
LDA ADRERR, X 
TAY 
DEX 
LDA ADRERR, X 
JSR STROUT 
RTS 


, 
; SORTIE D'UN CARAC. SUR ECRAN, 
;CLIGNOTANT SI CARAC DE CONTROL 
OUTDO ORA #580 

CMP #$A0 

BCS >1 


STY $35 


SBC #$40 
JMP $FDF9 
#1 JMP COUTI1 


L 
LISTE UNE INSTRUCTION BASIC 
LISTING LDY #$00 
STY ERR 
STY $85 
FL LDY $85 
INC $85 
LDA ($9B),Y 
BEQ >9 
LDX ERR 
BNE >2 
CMP #$3A 
BEQ >9 


on 
. 


°2 CMP #$22 se" 
BNE >3 


LDA ERR 
EOR #$01 
STA ERR 


*3 CMP #$B2 
BNE >4 
LDX #$FF 
STX ERR 

“4 CMP #$80 
BCC >5 


sBC #57F 


LDA #$20 
JSR OUTDO 
LDY #$D0 
STY $9D 
LDY #$CF 
STY $9E 
LDY #$FF 

*6 DEX 
BEQ >8 

#4 JSR $D72C 
BPL <7 
BMI <6 

*8 JSR $D72C 


JSR OUTDO 


BPL <8 
LDA #$20 
#5 JSR OUTDO 
JMP <1 
A9 JSR CR 


5 


3 TESTE LA FIN D'INSTRUCTION 


FINI JSR INCPTR 
CMP #$00 
BEQ >1 
CMP #$3A 
#L RTS 


î 


;TESTE CARAC. POINTE = LETTRE ? 
TESTLET LDY #$00 
LDA (PTR),Y 
CMP #$41 
BCC >1 
CMP #$5B 
BCS >1 
JSR INCPTRI 
TYA 
RTS 
eL INY 
RTS 





0 


;TESTE SI CARAC POINTE = CHIFFR 
TESTCHI LDY #$00 

LDA (PTR),Y 

CMP #$30 

BCC >1 

CMP #$3A 

BCS >1 

JSR INCPTRI 

LDY #$00 


“1 INY 


Le 


;TESTE NUMERO DE LIGNE 
TNUMLIN LDY #$00 

STY LNG 

STY LIN+1 

JSR TESTCHI 








10 


BEQ >1 
LDX #$A1 


ME! SEC 
SBC #$30 
STA LIN 

"4 JSR TESTCHI 
BEQ >3 
LDY #$00 


#3 SEC 
SBC #$30 


LDA LNG 


ADC #$01 
CMP #$05 
BEQ >4 

STA LNG 
LDA LIN 


STA LIN 
STA LIN+2 
LDA LIN+1 


STA LIN+1 
ASL LIN+2 


ASL LIN+2 


BCS >4 
STA LIN+3 
LDA LIN+2 
ADC LIN 
STA LIN 
LDA LIN+3 
ADC LIN+1 
BCS >4 
STA LIN+1 


ADC LIN 
STA LIN 
LDA #$00, 
ADC LIN+1 
BCS >4 
STA LIN+1 
CMP #$FA 
BCC <2 
‘4 LDX #$03 
î 
: TESTE NUMERO LIGNE ET VERIFIE 
; SON EXISTENCE DANS LE PROGMME 
VNUMLIN JSR TNUMLIN 
BNE >2 
LDA $67 
STA LIN+2 
LDA $68 
STA LIN+3 
"1 LDY #$00 
LDA (LIN+2),Y 
STA NL 


LDA (LIN+2),Y 
STA NL+1 

ORA NL 

BEQ >2 


LDA (LIN+2),Y 
STA LN 


LDA (LIN+2),Y 
STA LN+1 

LDA NL 

STA LIN+2 

LDA NL+1 

STA LIN+3 


412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 


*2 LDX #5$503 


L 

3TESTE LE TYPE DE VARIABLE 

TESTVAR JSR TESTLET 
BNE >3 

“1 JSR TESTLET 
BEQ <1 
JSR TESTCHI 
BEQ <1 
LDY #$00 
LDA (PTR),Y 
CMP #$24 
BCC >2 
CMP #$26 
BCS >2 


JSR INCPTRI1 


#2 LDY #$01 


°3 LDY #$00 


3TESTE SI VARIABLE REELLE 
TESTVR JSR TESTVAR 

CPY #$00 

BNE >1 

LDX #$22 


el CPY #$01 
BEQ >2 
LDX #$06 


ï 


:TESTE SI VARIABLE NUMERIQUE 
TESTVNU JSR TESTVAR 

CPY #$01 

BEQ >2 

CPY #$25 

BEQ >2 

CPY #$00 

BEQ >1 

LDX #$06 


er ! LDX #$22 
AZ RTS 


î 


; SOUS-PROGRAMMES QUI TESTENT 
; L'EGALITE DU CARACTERE POINTE 
AVEC DIVERSES CLES 
TESTVIR LDA #$2C a 
JSR COMPAR 
BEQ >1 
LDX #$52 
*1 RTS 
TESTPOVI LDA #$3B 
JSR COMPAR 
BEQ >1 
LDX #$91 
“1 RTS 
TESTEGAL LDA #$D0 ze 
JSR COMPAR 
BEQ >1 
LDX #$31 
dé | RTS 
TESTTO LDA #$C1 TO 


488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 


508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 


JSR COMPAR 
BEQ >1 
LDX #$41 
el RTS 
TESTAT LDA #$C5 
JSR COMPAR 
BEQ >1 
LDX #$C1 
1 RTS 
TESTGO LDA #$AB 
JSR COMPAR 
BEQ >1 
LDA #$B0 


; GOTO 


; GOSUB 


JSR COMPAR 
BEQ >1 
LDX #$D1 
AL RTS 
TESTPARO LDA #$28 5 { 
JSR COMPAR 
BEQ >1 
LDX #$72 
se L RTS 
TESTPARF LDA #$29 5) 
JSR COMPAR 
BEQ >1 
LDX #$82 
“LE RTS 


TESTE SI CHAINE 
TESTCHA LDA #$22 5" 
JSR COMPAR 
BNE >3 
F2 JSR INCPTR 
CMP #$00 
BNE >2 
JSR DECPTR 
LDA #$01 


*2 CMP #$22 
BNE <1 


: TESTE UNE CONNECTION 
DE COMPARAISON 
TESTCOMP LDA #$00 
STA SUP 
STA EGA 
STA INF 
“1 LDA #$CF 5> 
JSR COMPAR 
BNE >2 
INC SUP 
JMP <1 
*2 LDA #$D0 = 
JSR COMPAR 
BNE >3 
INC EGA 
JMP <1 
°3 LDA #$D1 5< 
JSR COMPAR 
BNE >4 
INC INF 


“4 LDA #$01 
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564 BEQ >6 

565 CMP #$02 

566 BEQ >6 

567 *5 LDA #$01 

568 “6 RTS 

569 ; 

570 ;TESTE COMPARAISON DE CHAINE 
571 COMPCHA JSR EXPCHA 

572 BNE >2 

573 JSR TESTCOMP 

574 BEQ >1 

575 LDX #$06 

576 RTS 

577 *1 JSR EXPCHA 

578 *2 RTS 

579 ; 

580 ;TESTE UN OPERATEUR 

581 ;+ - * / * AND OR 

582 TESTOP LDY #$00 

583 LDA (PTR),Y 

584 CMP #$C8 

585 BCC >1 

586 CMP #$CF 

587 BCS >1 

588 JSR INCPTRI 

589 LDY #$00 

590 RTS 

591 “1 INY 

592 RTS 

593 ; 

594 ;TESTE SI INDICES 

595 ; (POUR VARIABLE TABLEAU) 

596 INDICES LDA #$528 ; 
597 JSR COMPAR 

598 BEQ INDICES1 

599 LDA #$00 

600 CLC 

601 RTS 

602 INDICES1 JSR EXPNUM 

603 BNE >2 

604 *1 LDA #5$529 5) 
605 JSR COMPAR 

606 BEQ >2 

607 LDA #$2C ; 
608 JSR COMPAR 

609 BNE >3 

610 JSR EXPNUM 

611 BEQ <1 

612: *2 SEC 

613 RTS 

614 *3 LDX #$52 

615 RTS 

616 ; 

617 ; LIT UN NOMBRE 

618 ; COMMENCANT PAR UN CHIFFRE 
619 LITNOM JSR TESTCHI 

620 BEQ LITNOM 

621 LDA #$2E ; 
622 JSR COMPAR 

623 BNE >1 

624 ; 

625 ;LIT UN NOMBRE 

626 ; COMMENCANT PAR UN POINT 
627 LITDEC JSR TESTCHI 

628 BEQ LITDEC 

629 *1 LDA #$45 ; 
630 JSR COMPAR 

631 BNE >3 

632 LDA #$C8 + 
633 JSR COMPAR 

634 BEQ >2 

635 LDA #$C9 î 
636 JSR COMPAR 

637 "2 JSR TESTCHI 

638 BNE >4 

639 JSR TESTCHI 

640 *3 JSR TESTCHI 
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‘4 


î 


TESTE UNE EXPRESSION NUMERIQUE 


BEQ >4 

LDA #$2E 
JSR COMPAR 
BEQ >4 


TYA 
RTS 
INY 
RTS 


ENTRE PARENTHESES 


EXNUPAR 


EXNUPAR1 


RA 


5 


JSR 
BNE 
JSR 
BNE 
JSR 
RTS 


TESTPARO 
>1 
EXPNUM 
>1 
TESTPARF 


TESTE UNE EXPRESSION NUMERIQUE 


EXPNUM 


°2 
PL 


°2 
#1 


2 
#4 


#3 
*1 


°2 
*1 


*2 


JSR 


INCPTR 
#$cs8 
EXPNUM 
#$c9 
EXPNUM 
#$c6 
EXPNUM 
5528 
>1 
EXNUPAR1 
>2 
SUITE 


#5c2 

>1 
TESTVR 
>2 
EXNUPAR 
>2 
SUITE 


#57 

>1 
EXPNUM 
>2 
TESTVIR 
>2 
EXNUPAR1 
>2 
SUITE 


#5E3 

>2 

#$ES 

>2 

#$5E6 

>1 
EXCHPAR 
>3 
SUITE 


#55 

>1 
EXNUPAR 
>2 

#$0B 
ERR 
SUITE 


#5D6 

>2 

#5D9 

>1 
EMPILE 
EXNUPAR 


DEPILE 


3 SCRN ( 


5 LEN 


;: VAL 


ASC 


;USR 


BEQ SUITE 
JSR RESTAURE 
JSR EXCHPAR 
BEQ SUITE 


RTS 


> 


LOG EXP COS 
1 


*1 CMP 


u 


3 TESTE CHIFFRE 


64 CMP 


AL PHA 


BEQ 


î 
;TESTE CHR$ LEFTS RIGHTS MIDS 


1 JSR 


°2 CPY 


#3 JSR 


‘4 JSR 


SUITE JSR 


°2 LDA 


u 


CMPARE SGN INT ABS PDL SQR RND 


SIN TAN ATN PEEK 
#52 

>1 

#$E3 

>1 

EXNUPAR 

SUITE 


#$2E LE 
>1 

LITDEC 

SUITE 

#504 


#530 
>1 
#53A 
>1 
LITNOM 
SUITE 
#504 


DECPTR 


#522 Cat 
>4 
#$E4 
>4 


: STR$ 


#$5E7 

>1 

#$EB 

>4 
EMPILE 
TESTVAR 
DEPILE 
#524 

>2 
RESTAURE 
>4 

#500 

>3 

#562 





INDICES 
SUITE 


COMPCHA 
SUITE 


TESTCOMP 
>1 
TESTOP 
>2 
EXPNUM 
#500 


;TESTE UNE EXPRESSION ALPHANUM. 
ENTRE PARENTHESES 


EXCHPAR JSR 


PT RTS 


TESTPARO 
>1 
EXPCHA 
>1 
TESTPARF 





LL 


EE 


795 ; 872 STA $9B 949 *1 JSR FINI 





796 ;TESTE UNE EXPRESSION ALPHANUM. 873 LDA PTR+1 950 BNE DATA 
797 EXPCHA  JSR INCPTR 874 STA $9C 951 JSR DECPTR 
798 CMP #$C8 3+ 875 TRAIINS1 JSR INCPTR 952 LDX #$0D 
799 BEQ EXPCHA 876 CMP #$00 :FINL 953 JMP FININST 
800 CMP #$E4 3 STRS 877 BEQ >1 954 #2 LDX #$12 
801 BEQ >2 878 CMP #53A 955 JMP FININST 
802 CMP #$E7 : CHRS 879 BNE >2 956 INPUT LDA #$22 
803 BNE >1 880 *1 LDX #508 957 JSR COMPAR 
804 *2 JSR EXNUPAR 881 RTS 958 BNE >1 
805 BNE >3 , 882 "2 CMP #$41 5A..2 959 JSR DECPTR 
806 JMP SUITEC 883 BCC >3 960 JSR TESTCHA 
807 *3 RTS 884 CMP #$55B 961 BNE >5 
808 *1 CMP 4#$E8 : LFTS 885 BCS >3 962 JSR TESTPOVI 
809 BEQ >2 886 JSR DECPTR 3 LET 963 BNE >4 
810 CMP #$E9 :RGTS 887 LDA #$AA 964 *1 JSR TESTVAR 
811 BNE >1 888 *3 CMP #580 965 CPY #$00 
812 “2 JSR TESTPARO 889 BCC >4 966 BEQ >3 
813 BNE >3 890 CMP #$C0 967 JSR INDICES 
814 JSR EXPCHA 891 BCC >5 968 BNE >4 
815 BNE >3 892 *4 JSR FININST 969 JSR TESTVIR 
816 JSR TESTVIR 893 LDX #500 970 BEQ <1 
817 BNE >3 894 RTS 971 JMP END 
818 JSR EXNUPAR1 895 *5 AND #57F 972 #3 LDX #$22 
819 BEQ SUITEC 896 ASL 973 4 JMP FININST 
820 *3 RTS 897 TAX 974 *5 LDX #$12 
821 “1 CMP #$EA :MIDS 898 LDA TABLE, X 975 JMP FININST 
822 BNE >1 899 STA IND 976 DEL JSR TNUMLIN 
823 JSR TESTPARO 900 INX 977 BNE >1 
824 BNE >2 901 LDA TABLE, X 978 JSR TESTVIR 
825 JSR EXPCHA 902 STA IND+1 979 BNE >1 
826 BNE >2 903 JMP (IND) 980 JSR TNUMLIN 
827 JSR TESTVIR 904 ; 981 BNE >1 
828 BNE >2 905 ;TRAITEMENT DIFFERENCIE SELON 982 JMP END 
829 JSR EXPNUM 906 ;L'INSTRUCTION BASIC 983 1 JMP FININST 
830 BNE >2 907 END LDX #507 984 DIM JSR TESTVAR 
831 LDA #529 5) 908 END1 JSR FINI 985 CPY #$00 
832 JSR COMPAR | 909 BEQ >1 986 BEQ >1 
833 BEQ SUITEC 910 JSR FININST 987 JSR INDICES 
834 JSR TESTVIR 911 LDX #$12 988 BNE >2 
L 835 BNE >2 912 #1 RTS 989 BCC >1 
| 836 JSR EXNUPARI1 913 FOR..TO JSR TESTVR 990 JSR TESTVIR 
837 BEQ SUITEC 914 BNE >2 991 BEQ DIM 
838 *2 RTS 915 JSR TESTEGAL 992 JMP END 
FE 839 “1 CMP #$522 916 BNE >2 993 *1 LDX #$B1 
ra 840 BNE >1 917 JSR EXPNUM 994 *2 JMP FININST 
ue 841 JSR DECPTR 918 BNE >2 995 READ JSR TESTVAR 
#5 842 JSR TESTCHA 919 JSR TESTTO 996 CPY #$500 
<= 843 BEQ SUITEC 920 BNE >2 997 BEQ >1 
. 844 LDX #562 921 JSR EXPNUM 998 JSR INDICES 
ei 845 RTS 922 BNE >2 999 BNE >2 
3 846 “1 CMP #$41 ;A..2 923 LDA #$C7 ; STEP 1000 JSR TESTVIR 
.& 847 BCC >1 924 JSR COMPAR 1001 BEQ READ 
= 848 CMP #55B 925 BNE >1 1002 JMP END 
849 BCS >1 926 JSR EXPNUM 1003 “1 LDX #$22 
850 JSR DECPTR 927 BNE >2 1004 *2 JMP FININST 
851 JSR TESTVAR 928 *1 JMP END 1005 CALL LDX #$0A 
852 CPY #524 929 *2 JMP FININST 1006 JMP FININST 
853 BNE >2 930 NEXT JSR TESTLET 1007 PLOT JSR EXPNUM 
854 JSR INDICES 931 BNE >2 1008 BNE >1 
855 BEQ SUITEC 932 JSR DECPTR 1009 JSR TESTVIR 
856 RTS 933 *1 JSR TESTVR 1010 BNE >1 
857 *2 LDX #$506 934 BNE >3 1011 JSR EXPNUM 
858 RTS 935 JSR TESTVIR 1012 BNE >1 
859 *1 JSR DECPTR 936 BEQ <1 1013 JMP END 
860 JSR EXCHPAR 937 2 JMP END 1014 *1 JMP FININST 
861 BEQ SUITEC 938 3 JMP FININST 1015 HLIN JSR EXPNUM 
862 RTS 939 DATA LDA #$22 1016 BNE >1 
863 SUITEC  LDA #$C8 5+ 940 JSR COMPAR 1017 JSR TESTVIR 
864 JSR COMPAR 941 BNE >1 1018 BNE >1 
865 BNE >1 942 JSR DECPTR 1019 JSR EXPNUM 
866 JMP EXPCHA 943 JSR TESTCHA 1020 BNE >1 
867 *1 LDA #$00 944 BNE >2 1021 JSR TESTAT 
868 RTS 945 JSR TESTVIR 1022 BNE >1 
869 ; 946 BEQ DATA 1023 JSR EXPNUM 
870 ; TRAITEMENT D'UNE INSTRUCTION 947 LDX #$0D 1024 BNE >1 
871 TRAIINS LDA PTR 948 JMP ENDI 1025 JMP END 
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1026 *1 JMP FININST 
1027 HCOLOR JSR EXPNUM 


1028 BNE >1 

1029 JMP END 
1030 “1 JMP FININST 
1031 HPLOT JSR TESTTO 
1032 *1 JSR EXPNUM 
1033 BNE >2 

1034 JSR TESTVIR 
1035 BNE >2 

1036 JSR EXPNUM 
1037 BNE >2 

1038 JSR TESTTO 
1039 BEQ <1 

1040 JMP END 
1041 “2 JMP FININST 
1042 DRAW JSR EXPNUM 
1043 BNE >2 

1044 JSR TESTAT 
1045 BNE >1 

1046 JSR EXPNUM 
1047 BNE >2 

1048 JSR TESTVIR 
1049 BNE >2 

1050 JSR EXPNUM 
1051 BNE >2 

1052 *1 JMP END 
1053 “2 JMP FININST 
1054 ONERR LDA #$AB ; GOTO 
1055 JSR COMPAR 
1056 BNE >1 

1057 JSR VNUMLIN 
1058 BNE >2 
1059 JMP END 
1060 *1 LDX #$D1 
1061 *2 JMP FININST 
1062 RECALL JSR TESTVNU 
1063 BNE >1 

1064 JMP END 
1065 "1 JMP FININST 
1066 LET JSR TESTVAR 
1067 CPY #$00 
1068 BEQ >2 

1069 CPY #524 
1070 BEQ >1 

1071 JSR INDICES 
1072 BNE >3 

1073 JSR TESTEGAL 
1074 BNE >3 

1075 JSR EXPNUM 
1076 BNE >3 

1077 JMP END 
1078 *1 JSR INDICES 
1079 BNE >3 

1080 JSR TESTEGAL 
1081 BNE >3 

1082 JSR EXPCHA 
1083 BNE >3 

1084 JMP END 
1085 *2 LDX #5$22 
1086 *3 JMP FININST 
1087 GOTO JSR VNUMLIN 
1088 BNE >1 

1089 JMP END 
1090 *1 JMP FININST 
1091 RUN JSR TESTCHI 
1092 BNE >1 

1093 JSR DECPTR 
1094 JSR VNUMLIN 
1095 BEQ >1 

1096 JMP FININST 
1097 *1 JMP END 
1098 1F JSR EXPNUM 
1099 BNE >5 

1100 LDA #$AB ; GOTO 
1101 JSR COMPAR 
1102 BNE >1 
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ne 


*2 


#3 


*4 

*5 
AMPERS 
REM 


ON 


ex 


A2 
WAIT 


#1 
#2 
DEF 


“3 
#2 
PRINT 


#1 


°2 


VNUMLIN 
>4 

>5 

#$c4 
COMPAR 
>2 

#$El 

>5 
TESTCHI 
>3 
TRAIINS1 
DECPTR 
VNUMLIN 
>5 

END 
FININST 
#50s 
FININST 
#$0c 
FINBIS 
EXPNUM 
>2 
TESTGO 
>2 
VNUMLIN 
>2 
TESTVIR 
<1 

END 
FININST 
EXPNUM 
>2 
TESTVIR 
>2 
EXPNUM 
>2 
TESTVIR 
>1 
EXPNUM 
>2 

END 
FININST 
#$c2 
COMPAR 
>1 
TESTVR 
>2 
TESTPARO 
>2 
TESTVR 
>2 
TESTPARF 
>2 
TESTEGAL 
>2 
EXPNUM 
>2 

END 
#5F1 
FININST 
TESTVIR 


PRINT 
TESTPOVI 
PRINT 
#5co 
COMPAR 
>1 

#$5C3 
COMPAR 
>2 
EXNUPARI 
>3 

PRINT 
EMPILE 
EXPNUM 


DEPILE 


; THEN 


: TAB( 


:SPC( 


1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 


°3 JMP 
LIST JSR 


°1 JSR 


Qi - JSR 


°3 JMP 
“4 JMP 
GET LDY 


«I JSR 


s2 CPY 


*3 JSR 


‘4 JMP 


. 


PRINT 
RESTAURE 
EMPILE 
EXPCHA 


DEPILE 


PRINT 

RESTAURE 

END 

FININST 

TESTCHI 

>1 

DECPTR 

ÉNUMLIN 

>4 

TESTVIR 

>2 

#5c9 hd 
COMPAR 
>3 
TESTCHI 
>3 
DECPTR 
TNUMLIN 
>4 

END 
FININST 
#$07 
DRGET 
TESTVAR 
#$500 

>2 

#522 

>4 

#524 

>3 

#50E 
DRGET 
INDICES 
>4 
TESTVIR 
<1 
DRGET 
END1 
FININST 


PLACE LE POINTEUR AU DEBUT 


SUIVANTE, APRES : 
LIGNE 

INCPTR 

#500 

>1 

#53A 

FININST 


INCPTR 
#500 
FINBIS 


"LIGNE " 
000000000000 
“INSTRUCTION NON 


0D00 

“ ATTENDU" 

0D00 

“ ATTENDUE" 

0D00 

“MAUVAISE ADRESSE" 
0D00 

"NOMBRE INCORRECT" 
0D00 


1229 ; INSTRUCTION 
1230 ;OU NOUVELLE 
1231 FININST JSR 
1232 CMP 
1233 BEQ 
1234 CMP 
1235 BNE 
1236 "1 RTS 
1237 FINBIS JSR 
1238 CMP 
1239 BNE 
1240 RTS 
1241 ; 

1242 ; DONNEES : MESSAGES 
1243 TXLIGNE ASC 
1244 NUMLIN HEX 
1245 ERRO ASC 
RECONNUE" 

1246 HEX 
1247 ERR1 ASC 
1248 HEX 
1249 ERR2 ASC 
1250 HEX 
1251 ERR3 ASC 
1252 HEX 
1253 ERR4 ASC 
1254 HEX 
1255 ERRS ASC 


"EXPRESSION 





fe 
F 
H 
Ë 


Lo 
LR 
ax 

‘a 


aqasat 


14 





INCORRECTE" 


1256 
1257 


ERR6 


TYPE" 


1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 


1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 


ERR7 


ERR8 


ERR9 


ERR10 


ERR11 


ERR12 


ERR13 


ERR14 


ERR17 


ERR18 


ERR19 


ERR20 


ERR21 


ERR22 


ERR23 


ERR24 


ERR25 


ERR26 


ERR27 


ERR28 


ERR29 


ERR30 


ERR31 


. 
5 


HEX 
ASC 


HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 


0D00 
"CONFUSION DE 


0D00 

"CORRECT" 

0D00 

*VIDE" 

0D00 
"INSTRUCTION 6" 
0D00 
“INSTRUCTION CALL"* 
CDO0 

“FONCTION USR" 
0D00 
“INSTRUCTION REM* 
0D00 
“INTRUCTION DATA“ 
0D00 

"GET NUMERIQUE" 
0D00 

“FIN D'INSTR." 
00 

"VARIABLE" 

00 

CC] 

00 

“TO" 

00 

., 

00 

"EXPRESSION" 

00 

“{" 

00 

QE 

00 


00 
"NUMERO" 
00 
"TABLEAU" 
00 

"AT" 

00 

"GOTO OU GOSUB" 
00 

"THEN" 

00 

"FN" 

00 


TABLE DES ADRESSES DES DEBUTS 
DE MESSAGES 


ADRERR 


ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 
ADR 


ADR 
ADR 
ADR 
ADR 
ADR 


ERRO 
ERRI1 
ERR2 
ERR3 
ERR4 
ERRS 
ERR6 
ERR7 
ERR8 


ERR9I 

ERR10O 
ERR11 
ERR12 
ERR13 
ERR14 
ERR17 
ERR18 
ERR19 
ERR20 
ERR21 
ERR22 
ERR23 
ERR24 


1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 


1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 


î 


ERR25 
ERR26 
ERR27 
ERR28 
ERR29 
ERR30 
ERR31 


TABLE DES ADRESSES DES 
3 TRAITEMENTS 


TABLE 


IND 


ADR 
ADR 
ADR 
ADR 
ADR 
ADR 


SPECIFIQUES 
END 
FOR. .TO 
NEXT 
DATA 
INPUT 
DEL 
DIM 
READ 
END 
END 
HCOLOR 
HCOLOR 
CALL 
PLOT 
HLIN 
HLIN 
END 
END 
HCOLOR 
HPLOT 
DRAWN 
DRAW 
HCOLOR 
END 
HCOLOR 
HCOLOR 
END 
END 
END 
END 
END 
END 
HCOLOR 
END 
HCOLOR 
HCOLOR 
HCOLOR 
ONERR 
END 
RECALL 
RECALL 
HCOLOR 
LET 
GOTO 
RUN 

IF 

END 
AMPERS 
GOTO 
END 
REM 
END 

ON 
WAIT 


END 
END 
DEF 
PLOT 
PRINT 
END 
LIST 
END 
GET 
END 
0000 


Récapitulation SNTX 


8900- 
8908- 
8910- 
8918- 
8920- 
8928- 
8930- 
8938- 
8940- 
8948- 
8950- 
8958- 
8960- 
8968- 
8970- 
8978- 
8980- 
8988- 
8990- 
8998- 
89A0- 
89A8- 
89B0- 
89B8- 
89C0- 
89C8- 
89D0- 
89D8- 
89E0- 
89E8- 
89F0- 
89F8- 
8A00- 
8A08- 
8A10- 
8A18- 
8A20- 
8A28- 
8A30- 
8A38- 
8A40- 
8A48- 
8A50- 
8A58- 
8A60- 
8A68- 
8A70- 
8A78- 
8A80- 
8A88- 
8A90- 
8A98- 
8AAO- 
8AA8- 
8AB0- 
8AB8- 
B8ACO- 
8AC8- 


20 
A9 
89 
85 
89 
05 
CE 
19 
6A 
85 
FE 
19 
20 
A2 
8E 
FO 
c9 
48 
20 
48 
07 
68 
8D 
8D 
ac 
04 
B1l 
60 
BO 
06 
00 
c6 
85 
60 
19 
26 
6A 
30 
B9 
20 
EF 
A8 
60 
84 
ac 
85 
4F 
47 
49 
04 
29 
51 
84 


58 
00 
85 
06 
85 
08 
89 
20 
AO 
CE 
A5 
20 
3A 
00 
48 
02 
01 
8A 
42 
C9 
C9 
C9 
10 
10 
1E 
20 
06 
38 
02 
99 
03 
1D 
06 


A9 
73 
8D 
68 
20 
03 
18 
8A 
20 
0B 
85 
8A 
20 
1D 
07 
0B 
04 
4A 
68 
FO 
FO 
BO 
AD 
E6 


4c 
8D 
F7 
85 
CE 
ac 
20 
20 
3A 
85 
18 
A9 
84 
86 
DO 
8A 
c9 
4A 
20 
0B 
03 
OE 
00 
CE 
00 
98 
DO 
E9 
60 
c8 
1D 


8D 
F6 
03 
07 
89 
DO 
CE 
80 
DB 
24 
A9 
73 
FE 
CF 
06 
29 
02 
4A 
42 
c9 
20 
20 
co 
68 
D1 
60 
02 
01 
A4 
A5 
60 


F5 
03 
A5 
20 
85 
03 
89 
FE 
A9 
20 
00 
A0 
E6 
20 
A4 
0F 
DO 
69 
8A 
08 
63 
3A 
10 
DO 
06 
A0 
E6 
85 
1D 
07 
C6 


03 
A9 
67 
CE 
09 
20 
85 
A9 
01 
80 
85 
92 
24 
E5 
CF 
48 
OC 
0E 
68 
FO 
8A 
FF 
FB 
8A 
DO 
00 
07 
06 
A5 
99 
1D 
03 
07 
26 
OA 
F2 
69 
c8 
A9 
DO 
93 
DB 
48 
FD 
84 
FO 
FO 
CF 
DO 
90 
20 
CF 
20 
2C 
F6 
8A 
cg 
00 


Pom's n° 19 








B8ADO- 
8AD8- 


8AEO- 
8AE8- 
8AFO- 
8AF8- 
8B00- 
8B08- 
8B10- 
8B18- 
8B20- 
8B28- 
8B30- 
8B38- 
8B40- 
8B48- 
8B50- 
8B58- 
8B60- 
8B68- 
8B70- 
8B78- 
8B80- 
8B88- 
8B90- 
8B98- 
8BAO- 
8BA8- 
8BB0O- 
8BB8- 
8BCO- 
8BC8- 
8BDO- 
8BD8- 
8BEO- 
8BE8- 
8BFO- 
8BF8- 
8c00- 
8c08- 
8C10- 
8C18- 
8c20- 
8c28- 
8C30- 
8c38- 
8c40- 
8c48- 
8C50- 
8C58- 
8C60- 
8C68- 
8Cc70- 
8c78- 
8C80- 
8c88- 
8Cc90- 
8c98- 
8CAO- 
8CA8- 
8CBO- 


Pom's 


c9 
20 


00 
3A 
60 
FB 
60 
8A 
30 
05 
85 
FB 
21 
FA 
FB 
65 
90 
DO 
85 
c8 
23 
FC 
09 
D9 
D1 
CE 
FB 
B1 
BO 
01 
co 
01 
8B 
09 
A2 
FO 
c3 
DO 
60 
A2 
FO 
c3 
89 
20 
A9 
82 
11 
20 
DO 
EC 
DO 
DO 
4c 
DO 
O1 
15 
65 
FO 
60 
8c 
8E 


41 
D2 


B1 
BO 
c8 
20 
38 
FO 
A8 
FO 
FA 
06 
85 
A5 
98 
FB 
B4 
3A 
FD 
B1 
c8 
85 
85 
DO 
DO 
8A 
20 
06 
05 
60 
00 
FO 
co 
CO 
22 
02 
89 
20 
A9 
41 
02 
89 
FO 
C3 
29 
60 
20 
D9 
EF 
85 
05 
20 
5D 
05 
C5 
C5 
EB 
06 
20 
FO 
60 


90 
89 


06 
06 
60 
El 
E9 
03 
A5 
37 
85 
FC 
FD 
FD 
65 
BO 
A2 
A5 
AO 
FC 
B1 
19 
FD 
09 
01 
DO 
El 
c9 
A8 
AO 
DO 
02 
01 
00 
60 
A2 
FO 
C3 
C1 
60 
A2 
FO 
02 
89 
20 
A9 
CE 
89 
60 
ED 
E6 
C3 
8c 
E6 
EB 
ED 
65 
cg 
46 
03 
AO 


09 
98 


c9 
20 
A0 
8A 
30 
AO 
EE 
85 
FC 
2A 
A5 
65 
FA 
06 
03 
67 
00 
85 
FC 
A5 
A5 
A5 
60 
1E 
8A 
24 
20 
00 
03 
A2 
FO 
FO 
A9 
52 
02 
89 
20 
A9 
C1 
09 
A2 
FO 
C3 
22 
89 
A9 
A9 
A9 
EB 
89 
A9 
ED 
90 
90 
EC 
02 
8E 
A2 
00 


c9 
60 


30 
D2 
00 
FO 
85 
00 
18 
EE 
A5 
06 
FC 
FB 
85 
85 
60 
85 
B1l 
09 
85 
08 
19 
18 
A2 
20 
FO 
90 
D2 
60 
A2 
06 
0D 
03 
2C 
60 
A2 
FO 
C3 
C5 
60 
A9 
D1 
02 
89 
20 
c9 
01 
00 
CF 
4c 
DO 
D1 
ac 
19 
11 
65 
FO 
DO 
06 
B1 


c8 
D2 
28 


18 
29 
20 
FO 
El 
89 
A9 
c8 
20 
20 
A9 
60 
20 
60 
C9 
C9 
03 
0E 
8D 
D7 
20 
DO 
FO 
DO 
28 
2C 
ac 
C9 
2C 
6E 
66 
BO 
c9 
4E 
C9 
3E 
68 
28 
20 
F6 
89 
A2 
60 
55 
03 
28 
03 
c9 
C9 
03 
04 
DO 
E5 
5E 
8c 
20 
DO 
3E 


OA 
AO 
c3 


20 
C3 
89 
38 
FO 
05 
20 
C3 
89 
8A 
20 
60 
8D 
CE 
FO 
DO 
28 
BF 
03 
13 
8B 
ac 
C9 
20 
60 
DO 
8E 
DO 
08 
FB 
c9 
20 
DO 
04 
BO 
04 
22 
E7 
E5 
co 
22 
60 
A3 
FO 
3A 
DO 
32 
FO 
DO 
D8 
E9 
20 
DO 
c9 
20 
8B 
A9 
ES 


cg 
00 
89 


3A 
89 
DO 
60 
FB 
20 
C3 
89 
20 
20 
C3 
20 
DO 
89 
F5 
09 
8E 
8B 
4c 
20 
DO 
28 
E5 
38 
C9 
07 
60 
16 
20 
89 
D2 
2C 
08 
60 
08 
60 
FO 
90 
89 
24 
8E 
20 
8c 
05 
8D 
08 
8c 
F9 
09 
8E 
DO 
46 
05 
EA 
20 
DO 
29 
8B 


CF 
60 
FO 


8D 
FO 
07 
A2 
A9 
El 
89 
FO 
El 
El 
89 
28 
03 
cg 
ca 
20 
60 
DO 
28 
3A 
08 
8E 
FO 
8E 
D5 
A2 
c9 
20 
F6 
20 
90 
8D 
20 
c9 
20 
48 
2C 
04 
20 
DO 
CO 
c8 
FO 
20 
A9 
20 
60 
C9 
20 
60 
15 
8E 
20 
DO 
46 
16 
20 
DO 


BO 
c8 
04 


DO 
oc 
20 
52 
2E 
8A 
DO 
05 
8A 
8A 
FO 
8c 
20 
c8 
C6 
31 
C9 
08 
8E 
8D 
20 
60 
04 
DO 
DO 
0B 
D6 
E5 
89 
38 
OA 
FO 
FC 
30 
FO 
20 
c9 
C9 
99 
06 
00 
8c 
01 
B4 
00 
46 
20 
E4 
2C 
c9 
20 
DO 
31 
26 
8E 
20 
c3 
05 


06 
60 
A9 


13 
A9 
3A 
60 
20 
FO 
14 
A9 
DO 
FO 
02 
DO 
32 
FO 
FO 
8D 
C2 
20 
60 
DO 
31 
C9 
C9 
03 
0D 
86 
FO 
89 
28 
8E 
c9 
58 
8c 
90 
8c 
D9 
E4 
EB 
8B 
20 
DO 
FO 
60 
8c 
60 
8E 
CE 
FO 
8D 
E8 
28 
OA 
8D 
20 
DO 
3A 
89 
20 


8EA0- 
8EA8- 
8EBO- 
8EB8- 


8ECO- 
8EC8- 
8ED0- 
8ED8- 
8EEO- 
8EE8- 
8EFO- 
8EF8- 
8F00- 
8F08- 
8F10- 
8F18- 
8F20- 
8F28- 
8r30- 
8r38- 
8F40- 
8F48- 
8F50- 
8F58- 
8F60- 
8F68- 
8F70- 
8r78- 
8F80- 
8r88- 
8F90- 
8F98- 
8FAO- 
8FA8- 
8FBO- 
8FB8- 
8FCO- 
8FC8- 
8FDO- 
8FD8- 
8FEO- 
8FE8- 
8FFO- 
8FF8- 
9000- 
9008- 
9010- 
9018- 
9020- 
9028- 
9030- 
9038- 
9040- 
9048- 
9050- 
9058- 
9060- 
9068- 
9070- 
9078- 
9080- 


FO 
D9 
62 
BO 


co 

0D 

20 

20 

A9 
07 

FO 

60 

05 

90 

92 

BD 

F4 

A2 

56 
DO 

3A 
14 

20 
DO 
20 
20 
FO 
A9 
D9 
20 
8B 
20 
A2 
56 
OD 
1E 
8B 
DO 
2A 
12 
0D 
8A 
92 
20 
E5 
B1 
00 
20 
A2 
56 
E5 
03 
3A 
12 
8c 
ac 
8D 
92 

12 

8D 
ac 


34 
89 
60 
13 


24 
60 
38 
c3 
00 


85° 


04 
c9 
20 
04 
A2 
F4 
93 
07 
92 
23 
8D 
20 
c3 
03 
CE 
BF 
F6 
22 
89 
20 
FO 
C4 
OD 
92 
20 
20 
co 
OA 
8F 
ac 
20 
DO 
20 
c8 
8B 
ac 
FO 
ES 
22 
92 
8B 
Ac 
8D 
20 
DO 
2A 
DO 
20 
20 
DO 
2A 


60 
20 
c9 
20 


DO 
A2 
8E 
89 
60 
9c 
c9 
41 
D9 
c9 
00 
93 
8D 
20 
A2 
20 
DO 
3A 
89 
ac 
8A 
8B 
ac 
20 
20 
C3 
E5 
8A 
ac 
A9 
D9 
EF 
00 
20 
A2 
56 
ES5 
03 
99 
8c 
FO 
56 
0D 
8B 
ac 
20 
DO 
2A 
DO 
3A 
08 
8F 
03 
03 
ES 
08 
8F 


c9 
3C 
41 
D9 


06 
06 
FO 
DO 
A5 
20 
3A 
90 
89 
co 
60 
8D 
75 
C4 
12 
F9 
19 
8D 
DO 
2A 
DO 
DO 
2A 
C3 
3C 
89 
A2 
DO 
56 
22 
89 
8B 
FO 
ES 
22 
92 
8B 
ac 
8B 
DO 
ED 
92 
20 
FO 
56 
3A 
08 
8F 
17 
8D 
20 
ac 
ac 
8c 
8B 
20 
4c 


22 
8c 
90 
89 


20 
60 
01 
03 
06 
CE 
DO 
09 
A9 
90 
29 
74 
94 
8A 
60 
8B 
20 
DO 
05 
8F 
OD 
08 
8F 
89 
8c 
FO 
0D 
DB 
92 
20 
20 
DO 
0D 
8B 
ac 
20 
DO 
2A 
co 
OC 
ac 
20 
c8 
EF 
92 
8D 
20 
ac 
20 
DO 
3A 
56 
2A 
20 
DO 
03 
56 








15 


9088- 
9090- 
9098- 
90A0- 
90A8- 


90B0- 
90B8- 
90C0- 
90C8- 
90D0- 
90D8- 
90E0- 
90E8- 
90F0- 
90F8- 
9100- 
9108- 
9110- 
9118- 
9120- 
9128- 
9130- 
9138- 
9140- 
9148- 
9150- 
9158- 
9160- 
9169- 
9170- 
9178- 
9180- 
9188- 
9190- 
9198- 
91A0- 
91A8- 
91B0- 
91B8- 
91C0- 
91C8- 
91D0- 
91D8- 
91E0- 
91E8- 
91F0- 
91F8- 
9200- 
9208- 
9210- 
9218- 
9220- 
9228- 
9230- 
9238- 
9240- 
9248- 
9250- 
9258- 
9260- 
9268- 
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20 
DO 
E5 
03 
AB 


8B 
AC 
ac 
8B 
12 
8B 
ac 
20 
DO 
56 
2A 
DO 
FO 
20 
c3 
1D 
FO 
8A 
89 
8F 
92 
8D 
20 
FO 
20 
DO 
ES 
03 
C2 
8B 
20 
DO 
3A 
F1 
FB 
20 
C3 
25 
8D 
20 
8E 
20 
92 
89 
8B 
DO 
D9 
2A 
1E 
A2 
A9 
OA 
4c 
89 
F5 
F9 


3A 
OF 
8B 
ac 
20 


DO 
56 
2A 
co 
20 
DO 
2A 
F9 
05 
92 
8F 
0B 
03 
3A 
89 
DO 
04 
FO 
20 
4c 
A2 
DO 
57 
F6 
3A 
12 
8B 
4c 
20 
DO 
BF 
OF 
8D 
4c 
20 
c3 
89 
FO 
08 
FB 
08 
FB 
20 
20 
FO 
OD 
89 
8F 
20 
22 
0E 
20 
2C 
c9 
60 
60 


17 
8D 
20 
ac 
DO 


2A 
DO 
56 
28 
DO 
3A 
c8 
OA 
8F 
8B 
92 
89 
92 
2C 
20 
C4 
DO 
ED 
DO 
A2 
62 
17 
08 
8F 
17 
8D 
20 
ac 
DO 
28 
14 
8B 
ac 
20 
FO 
07 
20 
E5 
89 
ES 
89 
2A 
DO 
DO 
c9 
8A 
8A 
92 
Co 
CO 
20 
FO 
56 
04 
89 
c7 


9270- 00 00 00 00 00 00 C9 CE 9380- D8 DO D2 C5 D3 D3 C9 CF 
9278- D3 D4 D2 D5 C3 D4 C9 CF 9388- CE 00 A8 00 A9 00 BB 00 
9280- CE AO CE CF CE AO D2 C5 9390- CE D5 CD C5 D2 CF 00 D4 
9288- C3 CF CE CE D5 C5 OD 00 9398- C1 C2 CC C5 C1 D5 00 C1 
9290- AO C1 D4 D4 C5 CE C4 D5 93A0- D4 00 C7 CF D4 CF AO CF 
9298- OD 00 AO C1 D4 D4 C5 CE 93A8- D5 AO C7 CF D3 D5 C2 00 
92A0- C4 D5 C5 OD 00 CD Ci D5 93B0- D4 C8 C5 CE 00 C6 CE 00 
92A8- D6 C1 C9 D3 C5 AO C1 C4 93B8- 76 92 90 92 9A 92 A5 92 
92B0- D2 C5 D3 D3 C5 OD 00 CE 93C0- B7 92 C9 92 EO 92 F3 92 
92B8- CF CD C2 D2 C5 AO C9 CE 93C8- FC 92 02 93 11 93 23 93 
92C0- C3 CF D2 D2 C5 C3 D4 OD 93D0- 31 93 42 93 53 93 62 93 
92C8- 00 C5 D8 DO D2 C5 D3 D3 93D8- 6F 93 78 93 7A 93 7D 93 
92D0- C9 CF CE A0 C9 CE C3 CF 93E0- 7F 93 8A 93 8C 93 8E 93 
92D8- D2 D2 C5 C3 D4 C5 OD 00 93E8- 90 93 97 93 9F 93 A2 93 
92E0- C3 CF CE C6 D5 D3 C9 CF 93F0- BO 93 B5 93 2A 8F 37 8F 
92E8- CE AO C4 C5 AO D4 D9 DO 93F8- 62 8F 7A 8F AC 8F DE 8F 
92F0- C5 OD 00 C3 CF D2 D2 C5 9400- F3 8F OE 90 2A 8F 2A 8F 
92F8- C3 D4 OD 00 D6 C9 C4 C5 9408- 60 90 60 90 27 90 2C 90 
9300- 0OD 00 C9 CE D3 D4 D2 D5 9410- 41 90 41 90 2A 8F 2A 8F 
9308- C3 D4 C9 CF CE AO A6 OD 9418- 60 90 6B 90 88 90 88 90 
9310- 00 C9 CE D3 D4 D2 D5 C3 9420- 60 90 2A 8F 60 90 60 90 
9318- D4 C9 CF CE A0 C3 C1 CC 9428- 2A 8F 2A 8F 2A 8F 2A 8F 
9320- CC OD 00 C6 CF CE C3 D4 9430- 2A 8F 2A 8F 60 90 2A 8F 
9328- C9 CF CE AO D5 D3 D2 OD 9438- 60 90 60 90 60 90 A7 90 
9330- 00 C9 CE D3 D4 D2 D5 C3 9440- 2A 8F BB 90 BB 90 60 90 
9338- D4 C9 CF CE AO D2 C5 CD 9448- C6 90 FA 90 05 91 18 91 
9340- OD 00 C9 CE D4 D2 D5 C3 9450- 2A 8F 4C 91 FA 90 2A 8F 
9348- D4 C9 CF CE AO C4 C1 D4 9458- 51 91 2A 8F 56 91 70 91 
9350- C1 OD 00 C7 C5 D4 AO CE 9460- 2A 8F 2A 8F 8F 91 2C 90 
9358- D5 CD C5 D2 C9 D1 D5 C5 9468- BC 91 2A 8F 01 92 2A 8F 
9360- OD 00 C6 C9 CE AO C4 A7 9470- 2D 92 2A 8F 00 00 E4 8B 
9368- C9 CE D3 D4 D2 AE 00 D6 9478- 31 E2 8B 32 CF 8B 31 C9 
9370- C1 D2 C9 C1 C2 CC C5 00 9480- 54 

9378- BD 00 D4 CF 00 AC 00 C5 





Editeur Plein Ecran 
EPE 


Le Pacha Apple J[+, /e, /lc 


+ Listez vos programmes Basic en avant et en arrière. 

+ Modifiez, insérez, effacez des caractères en plein écran 
sans relire les lignes. 

* Recherchez toute chaîne de caractères. 

+ Choisissez vous-même les codes de contrôle d'EPE. 

+ Modifiez EPE : le fichier source est sur la disquette. 


150,00 F TTC franco 
ommande page 74) 
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Ce programme, rédigé entièrement 
en Applesoft sous DOS 3.3, permet 
d'afficher le contenu de toute dis- 
quette formatée sous DOS 3.3, 
ProDOS, p-UCSD ou CP/M 80, ceci 
sans nécessairement savoir au départ 
quel est son système d'exploitation. 
Si la disquette n’est pas formatée, si 
elle est protégée, ou si le directory 
est absent (disquettes ‘fichiers’ de 
PFS File par exemple), un message 
adéquat est affiché. 


Pour le volume, on connaîtra : 

e le type de SED 

e le nom ou ‘’Pathname” (s’il s’agit 
de ProDOS ou p-UCSD), ou le 
numéro (DOS 3.3) 

e la place libre en nombre de sec- 
teurs (DOS 3.3), en blocs 
(ProDOS et p-UCSD) ou en Koc- 
tets (CP/M). 


Pour chaque fichier on affichera : 

e la place qu'il occupe (mêmes 
unités que ci-dessus) 

e son nom 

e son type (text, bas, code, ..). 


Remarque : ce programme a été 
écrit avec un Apple //e muni d’une 
carte 80 colonnes. Si vous possédez 
un Apple II+ (ou compatible) et une 
carte 80 colonnes, remplacez la ligne 
90 par CL80=2 et mettez à la ligne 
1920 le code nécessaire à l'activation 
de votre carte 80 colonnes. Si vous 
ne possédez pas de carte 80 colon- 
nes, remplacez seulement la ligne 90 
par CL80=3, mais dans ce cas l’affi- 
chage sur écran sera partiellement 
tronqué. 


01 23 


Un catalogue Multi-SED 


Pourquoi ce programme 


J'utilise toutes sortes de programmes 
sous différents systèmes d’exploita- 
tion, parce que je leur trouve ce petit 
quelque chose qui manque aux 
autres (comment se passer de DBase 
Il ou Turbo-Pascal sous CP/M, d’Ap- 
pleworks sous ProDOS, de Pascal- 
UCSD pour de gros systèmes de 
programmes, et des centaines d’utili- 
taires existant sous DOS 3.3). Etant 
par ailleurs très désordonné, je me 
trouve souvent dans l'embarras lors- 
que je sors une disquette d’un tiroir. 
Elle est mal étiquettée, je ne sais 
même pas si elle est initialisée, et si 
elle l'est, sous quel format. Il me faut 
alors charger l’un après l’autre cha- 
cun des systèmes d'exploitation que 
j'utilise, demander le directory, jus- 
qu'à découvrir enfin ce qu’elle 
contient, ou ce qu'elle ne contient 
pas. 


C'est ainsi que j'ai été amené à rédi- 
ger ce Catalogue Multi-SED. Pour 
permettre un vision plus synthétique, 
l'affichage se fait sur trois colonnes et 
dans l’ordre alphabétique des noms 
des fichiers. Il permet aussi d’impri- 
mer ce catalogue. Avec un petit ef- 
fort supplémentaire, il devrait être 
possible de l’accoler à un ”’Catalogue 
général”, comme celui paru dans 
Pom's 14, mais ça, je le laisse à 
votre soin. 


Plutôt que de tirer avantage des par- 
ticularités de chaque SED, j'ai pris 
l'option de l’uniformité de la présen- 
tation, c’est-à-dire de ne garder que 


Alain Gogniat 


les propriétés communes à chacun 
d'eux. Par exemple, j'ai renoncé à 
prendre en compte la date de créa- 
tion, que l’on ne trouve pas sous 
DOS 3.3, ni sous CP/M. 


Structure des disquettes 


Pour comprendre le fonctionnement 
de ce programme, il faut savoir que 
depuis 1980, le formatage utilisé par 
Apple sur toute disquette 5 pouces 
1/4, quel que soit le SED, comprend 
35 pistes concentriques, divisées cha- 
cune en 16 secteurs (un secteur per- 
met le stockage de l'équivalent de 
256 octets). La reconnaissance de 
ces secteurs dépend non pas du 
SED, mais de la carte contrôleur des 
drives. C’est pourquoi il est possible 
de lire un secteur appartenant à une 
disquette formatée sous n'importe 
quel SED à partir d’un autre SED, 
en particulier du DOS 3.3 : c’est ce 
que réalise ce programme (qui aurait 
pu être écrit tout aussi bien sous 
ProDOS, p-UCSD ou CP/M 80). Il 
existe une routine en langage ma- 
chine sous DOS 3.3, nommée 
RWTS (Read Write Track Sector). 
Par une trentaine de POKE, on 
transmet les informations nécessaires 
à cette routine, telles que numéro du 
drive, piste, secteur, adresse en mé- 
moire où recopier ce secteur, …, puis 
un CALL fait le reste (voir le Manuel 
du DOS). 


Bien que physiquement, sur la dis- 
quette, on ne trouve jamais que 35 
pistes de 16 secteurs, l’organisation 
soft” des secteurs diffère d’un SED 


32 33 34 


M: Nom du fichier (30 caractères) 


0 1 


0 123 4 
p-UCSD 


0 1 
CP/M 80 
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T|E] Nom du fichier (15 caractères) 


91011 1 
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Format du catalogue selon les S.ED. 
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à l’autre: ProDOS et p-UCSD les 
utilisent par deux pour former un 
bloc, tandis que CP/M, d'une cer- 
taine manière, les coupe en deux. 


Enfin, tout le monde sait que le SED 
a besoin d’une Table des matières 
contenant la liste des fichiers présents 
sur la disquette, leur type, leur lon- 
gueur, leur adresse, … L'ensemble 
de ces informations est regroupé 
dans le ‘directory ou catalog”, pour 
lequel un certain nombre de secteurs 
sont réservés sur la disquette. C’est à 
ces secteurs qu'il faut s'intéresser. 
e Pour DOS 3.3, il s’agit des sec- 
teurs 15 à 0 de la piste 17 
e Pour ProDOS et p-UCSD: sec- 
teurs de 11 à 2 (blocs 2-5) de la 
piste O 
e Pour CP/M: secteurs 0, 6, 12, 3, 
9, 15 de la piste 4. 


Structure du directory 
Caractéristiques du volume 


Sous ProDOS et p-UCSD, on trouve 
le nom du volume dans les premiers 
octets du premier secteur. Sous p- 
UCSD, on y trouve également le 
nombre de fichiers inscrits. 

Sous DOS 3.3, le numéro du vo- 
lume doit être recherché au début de 
la VTOC, c'est-à-dire le secteur O (en 
fait, il est aussi inscrit entre chaque 
secteur, ce qui permet à RWTS de 
lire ce numéro à n'importe quel en- 
droit de la disquette). 


Caractéristiques des fichiers 


Les informations relatives à un fichier 
donné sont inscrites dans un certain 
ordre à l'intérieur d'un champ d’une 
longueur variant de 26 (p-UCSD) à 
39 (ProDOS). La structure de ce 
champ, bien évidemment spécifique 
à chaque SED, est la suivante (seule- 
ment les caractéristiques utilisées 
dans le programme) : 


voir schéma page 17 


Légende 

E : Etat indique si le fichier est effacé 
ou non, ainsi que pour ProDOS et p- 
UCSD, la longueur du nom du fi- 
chier, 1 octet. 

T: Type du fichier (text, basic, code, 
binaire,….), 1 octet sauf CP/M qui a 3 
octets. 

LoHi: Longueur du fichier sous 
DOS 3.3 et ProDOS, 2 octets. 
ADAF: Adresse Début et Adresse 
Fin du fichier sous p-UCSD, la lon- 
gueur est obtenue par différence, 2 
octets. 

L : Longueur du fichier sous CP/M, 1 
octet. 

NOM : Nom du fichier, tel qu'il a été 
fourni par l'utilisateur lors de la sau- 
vegarde, 8 à 30 octets selon le SED. 


Ces champs sont inscrits séquentielle- 
ment sur le premier secteur réservé 


au ’directory”, éventuellement après 
les caractéristiques du volume, puis 
sur le deuxième secteur, le troisième, 
et ainsi de suite. Le nombre maxi- 
mum de fichiers dépend donc du 
nombre de secteurs réservés et de la 
longueur du champ: il est de 105 
pour DOS 3.3, 51 pour ProDOS, 77 
pour p-UCSD et 48 pour CP/M. 


Il est une possibilité intéressante de 
ProDOS que j'ai longtemps ignorée, 
c'est celle de ”’sous-directory” : une 
excuse à ma paresse est que son uti- 
lisation est surtout justifiée avec un 
disque dur. Néanmoins, il serait assez 
facile d'inclure dans le programme la 
lecture de ces sous-directory (avis 
aux amateurs). 


Description du 
programme 


Une fois le type de SED identifié, le 
principe général est de recopier en 
mémoire tous les secteurs réservés 
au directory” à partir de l'adresse 
28416 ($6F00), d'où le 
HIMEM:28416. On utilise pour cela 
la routine RWTS, dont les vecteurs 
sont POKESs aux adresse 768 et sui- 
vantes. 

C'est volontairement que j'utilise une 
adresse relativement basse pour la 
recopie (28416), car cela permet, en 
cas de compilation, de déclarer 
comme entières toutes les variables 
utilisées ultérieurement pour aller 
PEEKer les informations (on reste 
en-dessous du fatal 32768). 


Menu 


En principe, il suffit de presser RE- 
TURN et le programme détermine 
tout seul, comme un grand, le type 
de SED. Les routines d'identification 
ont été testées sur des dizaines et des 
dizaines de disquettes, sans jamais les 
prendre en défaut, la possibilité de 
choix est donc laissée à l’utilisateur. 
Si celui-ci choisit un SED par un nu- 
méro de 1 à 4, une routine vérifie si 
ce choix est le bon, si oui elle ren- 
voie aux lignes spécifiques de celui- 
ci, sinon elle le détermine. 


Vérification 


Un seul secteur est lu, puis un certain 
nombre d’octets d'identification sont 
comparés (lignes 320-410). Ces 
octets sont les suivants : 

e DOS 3.3 (sect.0, piste 17) valeur 
de 3-0-0 pour les octets de rang 
3-4-5 

e ProDOS (sect.11, piste 0) valeur 
de 0-0-3 pour les octets de rang 
0-1-2 

e p-UCSD (sect.11, piste 0) valeur 
_ Lee pour les octets de rang 

e CP/M (sect.O, piste 4) les octets de 
rang 1-8 doivent correspondre au 
code de caractères imprimables 





(ASCII 31-128) et les octets 13- 
14 doivent être nuls. 


L'identification de CP/M est sans 
aucun doute la plus hasardeuse, mais 
je n’ai rien trouvé d'autre. C’est d’ail- 
leurs pour cette raison qu’elle figure 
en dernière place : c'est presque une 
identification par élimination. 
Lecture et écriture 


Une fois le SED identifié, tous les 
secteurs réservés pour le directory” 
sont systématiquement recopiés en 
mémoire vive, bien que souvent les 
derniers soient vides (en DOS 3.3, le 
dernier secteur comprend les fichiers 
91 à 105). Cette opération est réali- 
sée secteur par secteur en initialisant 
les vecteurs spécifiques du SED, 
soient : la piste, le secteur et l'adresse 
mémoire, puis en lançant RWTS. 

Il faut noter que pour les trois pre- 
miers SED, les secteurs sont conti- 
gus : il suffit de donner le numéro du 
premier (PS) et du dernier (DS), et 
de les placer dans une boucle (ligne 
470). Pour CP/M, ces secteurs ne 
sont pas contigus, et ne correspon- 
dent à aucune progression logique 
simple, d'où l’utilisation de DATA 
(lignes 480 et 1200). 

A chaque lecture successive d'un 
secteur, on ajoute 256 (=longueur 
d’un secteur) à l'adresse de début de 
mémoire pour la recopie (PA, incré- 
menté au début par DE). 


Recherche du type de SED 


On essaie successivement la routine 
de vérification pour chaque SED. Si 
les octets comparés correspondent à 
l’un d'eux, tout est bien, sinon on af- 
fiche un ’SED INCONNU" et le pro- 
gramme recommence au début. A 
noter que si la routine rencontre 
quelque chose d'inhabituel, par 
exemple qu'elle ne trouve pas la 
piste et le secteur, la valeur de 64 
($40) est retournée dans la table 
(ligne 440). Il s’agit généralement 
d'un disque non formaté ou protégé 
par un SED spécial. 


Lecture des différents SED 


Les variables utilisées sont les suivan- 
tes : 

NV$ Nom ou numéro du volume 

NF Nombre de fichiers 

UT Nombre d'unités (secteurs ou 
blocs) utilisées 

PA Nombre d'octets utilisés pour un 
fichier 

LI Nombre d'unités libres 

TY Code du type de fichier 

DIV Nombre de fichiers maximum 
sur une unité (secteur ou bloc) 
NO$() Type des fichiers 

MAX Nombre maximum d'unités dis- 
ponibles 

LF Longueur du fichier 

N$ Nom du fichier 

N$() STR$(LF)+N$+NO$() 
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DOS 3.3 


Ligne 570 : Lecture du numéro du 
volume; celui-ci est retourné par 
RWTS, il n'y a qu’à le lire. 

Ligne 580: Initialisation des varia- 
bles, en particulier des types. A si- 
gnaler l'existence de ‘’typB” et 
’typA”, qui normalement apparaîs- 
sent sous B(inaire): MULTIPLAN 
par exemple sauve ses fichiers sous 
la forme typB. 

Ligne 590 : Début de la boucle, on 
lit les informations recopiées en mé- 
moire en commençant à DE 
(28416). Un test est nécessaire à 
chaque fois que l’on recommence un 
nouveau secteur, pour repositionner 
les octets décisifs, soit tous les 7 fi- 
chiers. 

Ligne 600 : Si les octets réservés au 
Nom du fichier sont nuls, on est ar- 
rivé au bout du ”’directory”. 

Ligne 610 : Si le premier octet vaut 
255, le fichier est effacé. 

Ligne 620 : Lecture de la longueur 
du fichier, et formatage pour l’écri- 
ture. On ne prend ici qu'un seul 
octet, ce qui pourrait causer une er- 
reur si un fichier était d’une longueur 
supérieure à 255 ($FF) secteurs. En 
fait, la commande CATALOG du 
DOS ne fait pas mieux, car où char- 
ger un fichier d’une telle longueur 
(plus de 65000 octets) ? 

Ligne 630 : On additionne les sec- 
teurs utilisés. 

Lignes 640-650 : Lecture des carac- 
tères formant le Nom du fichier. Bien 
que le nom puisse comporter jusqu’à 
30 caractères, on ne prend que les 
16 premiers (faut pas exagérer). 
Sous DOS 3.3, les octets composant 
le Nom du fichier ont leur bit de 
poids fort à un, il faut donc soustraire 
la valeur 128 avant de convertir en 
caractère ASCII. Comme certains 
modifient ces octets pour agrémenter 
leur catalog” avec des CTRL-H ou 
des caractères inversés, j'ai inclus un 
test pour remplacer tous ces caractè- 
res anormaux par un ‘?”. 

Ligne 660 : Lecture du code du type 
du fichier. 

Ligne 670 : On incrémente de 1 le 
nombre de fichiers existants. 

Ligne 680 : On incrémente de 35 
(=longueur d'un champs consacré à 
un fichier), puis retour de la boucle. 
Ligne 690: Calcul du nombre de 
secteurs libres, puis on passe la main 
aux routines d'affichage. 


ProDOS 


La logique est la même que ci- 
dessus, avec les différences suivan- 
tes : 

Ligne 710 : Lecture du nom du vo- 
lume (—Pathname), en commençant 
par sa longueur, exprimée sous un 
format un peu spécial, qui nous 
oblige à une petite gymnastique. 
Ligne 720 : Cette fois, c’est vraiment 


Pom's n° 19 


la lecture du Nom du volume. 

Ligne 800: Lorsqu'un nom de fi- 
chier est réécrit sur un ancien, seuls 
les nouveaux caractères sont inscrits. 
Remplacer "FICHIERNUMERO! ” 
PAR ‘FICHIER2” aboutira, sur la 
disquette à ”FICHIER2UMERO!”. 
Mais si vous faites un CATALOG, 
vous ne verrez que ‘’FICHIER2”. 
Ceci parce que l’octet qui précède le 
nom donne la longueur de celui-ci, 
ce qui permet au CATALOG de n’af- 
ficher que le nombre de caractères 
indiqués : lors de la première sauve- 
garde, cette longueur était de 14, elle 
n'est plus que que de 8 lors de la 
deuxième. Cette valeur est contenue 
dans la variable LN. 

Ligne 830 : Si l'on rencontre un fi- 
chier de type “DIR”, il peut y avoir 
des fichiers présents sur la disquette, 
mais absents du directory principal. 
Dès lors, on est obligé, pour connaî- 
tre le nombre réel de blocs utilisés, 
de lire le Volume Bit Map (équivalent 
de la VTOC du DOS 3.3). On place 
donc un drapeau (SD=1) pour faire 
ce travail, seulement si nécessaire, 
une fois la lecture du directory termi- 
née. 

Lignes 850-900 : Le décryptage du 
Volume Bit Map (bloc 6) m'a posé 
quelques problèmes, et pourtant c'est 
assez simple. En effet, si l’on sait que 
seuls les 35 premiers octets sont utili- 
sés (soit exactement le nombre de 
pistes), et qu'un octet comporte 8 
bits (soit tout aussi exactement le 
nombre de blocs par piste), la solu- 
tion est toute trouvée (mais que d’es- 
sais dans le vide avant d'arriver là !). 
Ainsi, par exemple, si le bit 3 de l’oc- 
tet O est à 1, on en conclut que le 
bloc 3 de la piste O est libre. En par- 
ticulier, si un octet vaut 255 (—1 +2 
+4+8 +16 + 32 + 64 +128), la 
piste correspondante est libre, soit 8 
blocs. Si au contraire il vaut O, alors 
toute la piste est allouée. Enfin, s’il 
est compris entre ces deux valeurs, 
un peu de gymnastique est néces- 
saire. 

Parmi les types de fichiers, ceux utili- 
sés par Appleworks (ADP,AWP et 
ASP) sont reconnus, mais il peut y 
en avoir d’autres, créés par des pro- 
giciels ProDOS que je ne connais 
pas, et qui ne seront pas reconnus: 


” 


ils seront affichés par ”....”. 
Pascal-UCSD 


L'organisation de p-UCSD est assez 
comparable à ProDOS: unités en 
blocs, indication de la longueur (LN) 
du nom du volume ou du fichier. 
Ligne 930: le nombre de fichiers 
(NE) présents sur la disquette est ins- 
crit au début du premier bloc : ça fa- 
cilite bien la suite. 

Ligne 950: En lieu et place de la 
longueur, on connaît l'adresse du 
premier bloc et celle du dernier. Mais 
comme sous UCSD les fichiers sont 





sauvés sur des blocs contigus (pas 
d’entrelaçage), la différence nous 
donne la longueur effective. 


CP/M 80 


La particularité de CP/M est de n’ac- 
cepter que des fichiers d’une lon- 
gueur inférieure ou égale à 16 demi- 
secteurs. Si un fichier dépasse cette 
valeur, il est écrit sur le directory” 
autant de fois qu’il comporte de 


blocs ou de fraction de bloc de 16 


demi-secteurs. On trouve quand 
même tout ce qu’il faut pour établir 
un lien éventuel (si 
PEEK(PA+12)=0) entre de tels fi- 
chiers. C’est ce que réalisent les tests 
des lignes 1140-1150, et la routine 
des lignes 1040-1050. Le résultat 
est que le nombre d'unités (demi- 
secteurs) est compté chaque fois, le 
nombre de fichiers une seule fois, et 
le Nom du fichier n'apparaîtra 
qu’une fois également. C’est un peu 
long, mais on y arrive. 

Ligne 1060: Initialisation des varia- 
bles : remarquer qu'il n'y a pas de 
code pour le type de fichier, celui-ci 
étant inscrit en clair (ASCII) à la suite 
du nom du fichier. 

Ligne 1100 : Les unités sont conver- 
ties en Koctets, comme le fait CP/M; 
le décompte peut ne pas être tout à 
fait exact, mais il correspond exacte- 
ment à la valeur retournée par la 
fonction CP/M "STAT”. 


Tri et édition 


Ouf ! Le reste est plus classique et ne 
nécessite pas d'explications particuliè- 
res. Un point seulement, l’ordre d’af- 
fichage se fait de haut en bas sur la 
première colonne, puis de haut en 
bas sur la deuxième, et la suite sur 
la troisième. 


Bibliographie 


Pour comprendre la structure des dif- 
férents SED, j'ai procédé par tâton- 
nement à l’aide d’un éditeur de sec- 
teurs. J'ai heureusement pu m'aider 
en consultant quelques ouvrages, très 
riches pour DOS 3.3, beaucoup 
moins pour p-UCSD. Pour ProDOS, 
la documentation est encore maigre. 
Quant à CP/M, j'ai dû tout chercher 
par essais et lecture. 


DOS 3.3 

Beneath Apple DOS, Don Worth & 
à Leschner, Quality Software, 
1981 


P-UCSD 

Un catalogue général en Pascal, Mi- 

chel Crimont, Pom'’s 2 

Gestion de fichiers et de périphéri- 

ques pour Applell/Pascal, Hervé 

Haut, Editions PSI, 1983 

ProDOS 

ProDOS Technical Reference Ma- 

nual, Apple Computer, Inc., 1983 

(assez sommaire sur bien des points). 
LE. 
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PRET TELE 


20 


Programme MULTISED.BAS 


50 REM A.GOGNIAT, FEV. 1985 
80 HIMEM: 28416 
90 CL80 = 3: REM 


NB : 
La valeur de la variable 'CL80' doit être 
mise à : 

<1> si Apple //e+80 COL, 

<2> si seulement 80 COL, 

<3> si seulement 40 COL. 


100 DIM N$(105),C0$(255) 

110 DEF FN MOD(A) = (A / DIV) - INT (A/DIV):ADR = 
768:DE = 28416 

120 FOR 1= AD TO AD + 29: READ BI: POKE 1,Bl: NEXT : 
REM MISE EN PLACE DE RWTS 

130 DATA 
169,3,160,9,32,217,3,96,0,1,96,1,0,17,15,26,3,0, 
111,0,0,1,0,0,96,1,0,1,239,216 


140 REM MENU 

150 TEXT : GOSUB 1970 

160 SD$(0) = "NE SAIT PAS":SD$(1) = "DOS 3.3”:SD$(2) 
= "PRODOS 1.01":SD$(3) = "PASCAL UCSD”:SD$(4) 
= "CPM 80”:SD$(5) = "SORTIE" 

170 PRINT : INVERSE : VTAB (1): PRINT "CATALOGUE 
POUR 4 SYSTEMES D'EXPLOITATION": VTAB (2): 
PRINT” AFFICHAGE SUR 3 COLONNES 
NORMAL : POKE 34,3 

180 VTAB (7): PRINT "QUEL TYPE DE DOS?": PRINT : 
FOR | = 0 TO 5: PRINT : HTAB (10): INVERSE : 
PRINT l;: NORMAL : PRINT  - ";SD$(1): NEXT 

190 VTAB (23): HTAB (10): PRINT "=>": GET 
AS$:CHOIX = VAL (AS): IF CHOIX > 5 THEN PRINT 
CHRS (7);: GOTO 190 

200 IF CHOIX = 0 THEN CHOIX = 6 

210 ON CHOIX GOTO 220,240,260,280, 1870,500 

220 GOSUB 320: IF TY < > CH THEN 1840 

230 PRINT * "SD$(CH);:PIST = 17:PS = 15:DS = 0: 
GOSUB 470: GOSUB 300: GOTO 570: REM DOS 
3.3 

240 GOSUB 340: IF TY < > CH THEN 1840 

250 PRINT ""SD$(CH);:PIST = 0:PS = 11:DS = 3: GOSUB 
470: GOSUB 300: GOTO 710: REM PRODOS 

260 GOSUB 360: IF TY < > CH THEN 1840 

270 PRINT " "SDS$(CH);:PIST = 0:PS = 11:DS = 5: GOSUB 
470: GOSUB 300: GOTO 920: REM P-UCSD 

280 GOSUB 380: IF TY < > CH THEN 1840 

290 PRINT " "SD$(CH);:PIST = 3: FOR 1 = 1 TO 6: READ 
SE(l): NEXT : GOSUB 480: GOSUB 300: GOTO 
1030: REM CPM 

300 HOME : VTAB (10): PRINT "S.E.D. RECONNU 
*SD$(CH): VTAB (16): PRINT "NOMBRE DE 
FICHIERS : “;: RETURN 


310 REM VERIFICATION DU TYPE DE DOS 


320 PIST = 17:SE = 0: GOSUB 430: IF PEEK (DE + 3) = 3 





AND PEEK (DE + 4) = 0 AND PEEK (DE + 5) = 0 
THEN TY = 1: REM DOS 3.3 

330 RETURN 

340 PIST = O:SE = 11: GOSUB 430: IF PEEK (DE) = 0 
AND PEEK (DE + 1) = 0 AND PEEK (DE + 2) = 3 
THEN TY = 2:REM PRODOS 

350 RETURN 

360 PIST = 0:SE = 11: GOSUB 430: IF PEEK (DE) = 0 
AND PEEXK (DE + 1) = 0 AND PEEK (DE + 2) = 6 
THEN TY = 3: REM P-UCSD 

370 RETURN 

380 PIST = 3:SE = 0: GOSUB 430: IF PEEK (DE) < > 0 
AND PEEK (DE) < >31 AND PEEK (DE) < > 229 
THEN 420: REM CPM 

390 FORI= 1 TO8:IF PEEK (DE +l)<31 OR PEEK (DE 
+1) > 128 THEN | = 8: GOTO 420 

400 NEXT : FOR I = 13 TO 14: IF PEEK (DE + |) < > 0 
THEN 420 

410 NEXT :TY =4 

420 RETURN 

430 POKE 781,PIST: POKE 782,SE: POKE 786, INT (DE 
/256): CALL AD: REM MISE EN PLACE DES 
VECTEURS RWTS SPECIFIQUES AU SED ET 
LANCEMENT DE RWTS 

440 IF PEEK (AD + 22) = 64 THEN 1880: REM VO 
ERREUR, DISQUE NON FORMATTE OÙ PROTEGE 

450 RETURN 


460 REM LECTURE ET ECRITURE EN 
MEMOIRE DES SECTEURS CONCERNES 


470 POKE AD + 13,PIST:PA = DE: FOR SE = PS TO DS 
STEP - 1: GOSUB 

490 : CALL AD:PA = PA + 256: NEXT : RETURN : REM 
DOS 3.3,PRODOS ET PASCAL 

480 POKE AD + 13,PIST:PA = DE: FOR 1 = 1 TO 6:SE = 
SE(I): GOSUB 

490 : CALL AD:PA = PA + 256: NEXT : RETURN : REM 
CPM 

490 POKE AD + 14,SE: POKE AD + 18, INT (PA / 256): 
RETURN : REM RWTS, NUMERO SECTEUR A LIRE 
ET ADRESSE MEMOIRE POUR COPIE 


500 REM RECHERCHE DU TYPE DE DOS 

510 GOSUB 320: IF TY = 1 THEN CH = 1: GOTO 230: 
REM DOS 3.3 RECONNU 

520 GOSUB 340: IF TY = 2 THEN CH = 2: GOTO 250: 
REM PRODOS RECONNU 

530 GOSUB 360: IF TY = 3 THEN CH = 3: GOTO 270: 
REM P-UCSD RECONNU 

540 GOSUB 380: IF TY = 4 THEN CH = 4: GOTO 290: 
REM CPM RECONNU 

550 VTAB (23): HTAB (1): PRINT "SYSTEME 
D'EXPLOITATION INCONNU”: GOTO 1850 


560 REM DOS 3.3 

570 NV$ = STR$ ( PEEK (AD + 23)): PRINT : VTAB (13): 
PRINT "VOLUME : NVS: VTAB (16) 

580 NF = O:UT = 0:PA = DE: GOSUB 1230 
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590 DIV=7:FORK = 1 TO 105: IF FN MODKK - 1) = 0 
THEN PA = DE + 11 + (INT (K/7) * 256): REM ON 
RECOMMENCE UN NOUVEAU SECTEUR 

600 IF PEEK (PA + 3) = 0 THEN K = 105: GOTO 680: REM 

FIN DU CATALOG 

610 IF PEEK (PA) = 255 THEN 680: REM FICHIER 
EFFACE 

620 LF= PEEK (PA+ 33):N$ = STRS (LF) +"": FORJ = 
LEN (N$) TO 4N$ = " "+ N$: NEXT 

630 UT = UT +LF 

640 FORJ= PA +3 TO PA + 18:CAR = PEEK (J): IF CAR 
= 136 OR CAR = 138 THEN CAR = 63 

650 N$ = N$ + CHR (CAR - 128 * (CAR > 127) + 96 * 
(CAR < 31)): NEXT :N$ = N$ +"" 

660 TY = PEEK (PA+ 2):TY = TY - (128 * (TY > 127)):CO$ 
= COS(TY) 

67C NF = NF + 1: HTAB (22): PRINT NF::NS$(NF) = NS + 
CO$ 

680 PA = PA + 35: NEXT 

690 LI= MAX - UT: GOTO 1320 


700 REM PRODOS 

710 LN= PEEK (DE + 4):LN = 16 * ((LN/16)- INT (LN/ 
16)):NV$ = 

720 FOR 1= 1 TO LN:NVS$ = NV$ + CHRS ( PEEK (DE + 4+ 
1)): NEXT :NV$ = "+ NVS: PRINT : VTAB (13): 
PRINT "VOLUME :"NVS: VTAB (16) 

730 NF = 0:PA = DE + 4{UT = 0: GOSUB 1240 

740 FORK = 2 TO 51 

750 DIV = 13:1F FN MOD(K- 1)= 0 THEN PA = DE + 4+ 
((K-1)/13)* 512: REM ON RECOMMENCE UN 
NOUVEAU BLOC 

760 PA = PA + 39:LN = PEEK (PA): IF LN = 0 THEN 840: 
REM FICHIER EFFACE 

770 IF PEEK (PA + 1) = 0 THEN K = 51: GOTO 840: REM 
FIN DE CATALOGUE 

780 NF = NF + 1: HTAB (22): PRINT NF::LF = 256 * PEEK 
(PA +20) + PEEK (PA + 19}: UT = UT + LF 

790 N$= STRS$(LF)+"" FORJ = LEN (NS) TO 4N$ = "" 
+ N$: NEXT 

800 DIV = 16:LN = 16* FN MOD(LN) 

810 FORJ = PA + 1 TO PA + LN:NS = N$+ CHRS (PEEK 
(J)): NEXT : FOR J = LN TO 15:N$ = N$ + "": NEXT 

820 TY = PEEK (PA + 16):CO$ = CO$(TY): IF COS = ”" 
THEN CO$ =". 

830 NS$(NF) = N$ + COS: IF TY = 15 THEN SD = 1: REM 
ATTENTION, CE FICHIER SOUS-DIRECTORY 
BOULEVERSE NOTRE CALCUL DU NOMBRE DE 
BLOCS LIBRE, --> PASSER PAR ROUTINE 850-890 

840 NEXT : IF SD = 0 THEN LI = MAX - UT: GOTO 1320 

850 Li=0:BMAP = DE + 1 + (8 * 256): FOR K = BMAP TO 
BMAP + 35:0C = PEEK (K): IF OC = 0 THEN 900 

860 IF OC = 255 THEN LI = Li+ 8: GOTO 900 

870 IC = 256: FOR 1 = 1 TO 8:1C = IC/2:1F OC > =IC 
THEN OC = OC - IC:LI = Li+ 1 

880 IF OC = 0 THEN I =8 

890 NEXTI 

900 NEXT K: GOTO 1320 


910 REM PASCAL UCSD 


920 LN = PEEK (DE +6): FOR I = 1 TO LN:NVS$ = NVS + 
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CHR$ ( PEEK (DE + 6 + 1)): NEXT : PRINT : VTAB 
(13): PRINT "VOLUME : "NV$: VTAB (16) 
930 NF = PEEK (DE + 16) 
940 PA = DE:UT = 0: GOSUB 1260 


950 FOR K = 1 TO NF: HTAB (22): PRINT K::PA = PA + 
26:LF = PEEK (PA + 2)- PEEK (PA):LF = LF + 256 * 
(LF < OUT = UT + LF 

960 N$= STRS$ (LF) +" ": FOR 1= LEN (NS) TO 4NS =" "+ 
N$: NEXT 

970 LN= PEEK (PA + 6): FOR = PA+ 7 TO PA+64+ 
LNINS = N$ + CHRS ( PEEK (J)): NEXT 

980 FOR J = LN TO 15:N$ = N$ + " ": NEXT 

990 TY = PEEK (PA + 4):CO$ = COS(TY) 

1000 NS(K) = N$ + COS 

1010 NEXT :LI = MAX - UT: GOTO 1320 


1020 REM CPM 80 

1030 GOTO 1060 

1040 LF=LF+ VAL (LEFTS (NS(IN(L)),4)}:LF$ = STRS$ 
(LF): FORJ = LEN (LF$) TO 3:LFS$ = "" + LF$: NEXT 

1050 NS(IN(L)) = LF$ + ""+ RIGHTS (NS(IN(L)),19)2L = Il: | 
GOTO 1190 

1060 NF = 0:PA = DE:UT = O:ll = 0: GOSUB 1270 | 

1070 FOR K = 1 TO 48 | 

1080 IF PEEK (PA+ 1)=0 OR PEEK (PA + 1) = 229 
THEN K = 48: GOTO 1190: REM FIN DU CATALOG 

1090 IF PEEK (PA) = 229 THEN 1190: REM FICHIER 
EFFACE 

1100 DIV = 8:LF = PEEK (PA + 15):LF = INT (LF /8) + ( 
FN MODILF) > O):UT = UT + LF 

1110 N$= STRS (LF)+"": FOR J = LEN (NS) TO 4N$="" 
+ N$: NEXT 

1120 FORJ = PA + 1 TO PA+ 8:N$ = N$+ CHRS ( PEEK 
(J)): NEXT :N$ = N$+"  ” à | 


1130 FOR J = PA + 9 TO PA + 11:N$ = N$+ CHRS (PEEK 
(J)): NEXT :N$ = NS + "" 

1140 IF LF < 16 AND PEEK (PA + 12) = 0 THEN 1180 

1150 IF LF = 16 AND PEEK (PA + 12)=0 THEN II=11+ 
1:IN(I1) = NF + 1: GOTO 1180: REM ATTENTION, 
CE FICHIER CONTINUE PLUS LOIN 

1160 IF PEEK (PA + 12) >0 THEN FORL = 1 TOII:IF 
RIGHTS (N$,19) = RIGHTS (NS(IN(L)),19) THEN 
1040: REM ATTENTION, CE FICHIER EST LA 
SUITE D'UN FICHIER DEJA ENREGISTRE 

1170 NEXT 

1180 NF = NF + 1: HTAB (22): PRINT NF:NS(NF) = NS 

1190 PA = PA + 32: NEXT K:LI = MAX - UT: GOTO 1320 

1200 DATA 0,6,12,3,9,15: REM SECTEURS 


RESERVES AU DIRECTORY 
1210 END 
1220 REM TYPES DE FICHIERS 


1230 MAX = 496:UNS$ = "SECTEURS":CO$(0) = "TXT 
":C0$(1) = "INT ":CO$(2) = "BAS ":CO$(4) = "BIN 
:CO$(8) = "typS”:C0$(16) = "REL ":CO$(32) = 
"typA":CO$(64) = "typB”: RETURN : REM DOS 3.3 

1240 MAX = 273:UN$ = "BLOCKS":CO$(0) = "$00 
*:CO0$(1) = "$01 ":CO$(2) = "$02 :CO$(3) = "503 
".C0$(4) = "TXT “:CO$(5) = "$05 ":CO$(6) = "BIN 
.CO$(7) = "$07 ":CO$(8) = "$08 : REM CF. LIGNE 
SUIVANTE 


ER 
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1250 CO$(12) = "BAS ":CO$(15) = "DIR ":CO$(25) = "ADB 
:C0$(26) = "AWP ":CO$(27) = "ASP ":CO$(250) = 
"INT ”:CO$(251) = "VAR ":CO$(252) = "BAS 
":CO$(253) = "VAR ":C0$(254) = "REL ":CO$(255) = 
"SYS “: RETURN : REM  PRODOS 

1260 MAX = 274:UN$ = "BLOCKS":CO$(1) = "BAD 
:CO$(2) = "CODE":CO$(3) = "TEXT”:CO$(4) = 
"INFO":CO$(5) = "DATA":CO$(6) = "GRAF":CO$(7) = 
"FOTO”:CO$(8) ="? ": RETURN : REM P-UCSD 

1270 MAX = 138:UN$ = "K": RETURN : REM AVEC CPM, 
C'EST PLUS SIMPLE 

1280 REM 


1290 REM MISE EN FORME ET EDITION 
1300 REM DU CATALOGUE 
1310 REM TRI DES FICHIERS SHELL-METZNER 


1320 PRINT : VTAB (19): PRINT "TRI ALPHABETIQUE ”: 

1330 EC = NF 

1340 PRINT " .":EC = INT (EC /2): IF EC < 1 THEN 1440 

1350 J = 1:K = NF - EC 

1360 1=J 

1370 PL=1+EC 

1380 IF MID$ (N$(1),6,21) < MIDS$ (N$(PL),6,21) THEN 
1420 


1390 N$ = NS(I):NS$(1) = NS(PL):NS(PL) = NS 
1400 1=1- EC: IF 1 < 1 THEN 1420 

1410 GOTO 1370 

1420 J=J + 1:1F J > K THEN 1340 

1430 GOTO 1360 


1440 REM EDITION SUR ECRAN 

1450 TEXT : HOME : ON CL80 GOSUB 1920, 1920, 1960 

1460 TI$(1) = "SYSTEME D'EXPLOITATION: ":TI$(2) = 
TI$(1):TI$(3) = "S.E.D. 

1470 PRINT : INVERSE : PRINT TIS(CL80);SD$(CH):: IF 
CH < >4 THEN PRINT * VOLUME : ":NVS 

1480 NORMAL : IF CH = 4 THEN PRINT 

1490 PRINT NF:" FICHIERS"; PRINT SPC{ 8):LI:" ":UNS$:" 
LIBRES": PRINT 

1500 NL= INT (NF/3)RESTE = NF - 3 “NL 

1510 VTAB (5):AE = 1: ON CL80 GOSUB 
1660,1660,1730:AE = 0 

1520 PRINT : PRINT 

1530 VTAB (23): HTAB (1): INPUT "PRESSEZ <RETURN> 
>" 

1540 HOME : ON CL80 GOSUB 1940,1960,1960: VTAB 
(10): PRINT "VOULEZ-VOUS IMPRIMER CE 
CATALOGUE ?": PRINT : PRINT : PRINT" (O/N) 
=>": GET A$ 

1550 IF A$ = "o" OR A$ = "O" THEN PRINT CHRS (13)+ 
CHR$ (4) PR#1";: GOTO 1580 

1560 GOTO 1860 


1570 REM EDITION SUR IMPRIMANTE 


1580 ON CL GOSUB 1930, 1960, 1960 

1590 PRINT SD$(CH);: IF CH < >4 THEN PRINT SPC( 
5)" VOLUME: ":NV$ 

1600 IF CH = 4 THEN PRINT 


1610 PRINT NF;" FICHIERS"; SPC{ 8);LI;" ";UN$;" 
LIBRES": PRINT 

1620 GOSUB 1660 

1630 PRINT : PRINT : PRINT : PRINT CHRS$ (4)"PR#3": 
GOSUB 1930 

1640 GOTO 1860 


1650 REM AFFICHAGE OÙ IMPRESSION SUR 3 
COLONNES: CARTE 80COL OU 
IMPRIMANTE 


1660 FOR 1 = 1 TONL 

1670 IF 1= 18 THEN IF AE THEN VTAB (23): PRINT 
"<RETURN> pour la suite ---->";: GET A$: PRINT 
CHRS$ (10): VTAB (21): CALL - 958 

1680 PRINT NS$(I);N$(I + NL + (RESTE > 0));,N$(I + 2 * NL 
+ (RESTE > 0) + (RESTE > i)) 

1690 NEXT : IF NF <4 THEN 1720 

1700 IF RESTE > 0 THEN PRINT N$(NL + 1); 

1710 IF RESTE > 1 THEN PRINT N$(2 * NL + 2) 

1720 RETURN 


1730 REM AFFICHAGE SUR 3 COLONNES 
(SANS CARTE 80COL) 


1740 FOR I = 1 TO NL 
1750 IF 1= 18 THEN VTAB (23): PRINT "<RETURN:> pour 
la suite -—->";: GET A$: PRINT CHRS (10): VTAB 


(21): CALL - 958 
1760 N$ = N$(I): PRINT MID$ (NS,6,8) + "."+ RIGHTS 
(N$,4); 


1770 N$ = N$(I + NL + (RESTE > 0)): PRINT MID$ 
(N$,5,8) + "." + RIGHTS (N$,4): 

1780 N$ = N$(1+ 2 * NL + (RESTE > 0) + (RESTE > 1)): 
PRINT MID$ (N$,5,8) + "+ RIGHTS (N$,4) 

1790 NEXT : IF NF < 4 THEN 1820 

1800 IF RESTE > 0 THEN N$ = NS(NL + 1): PRINT MID$ 
(NS,6,8) + "."+ RIGHTS (N$,4): 

1810 IF RESTE > 1 THEN N$ = N$(2 * NL + 2): PRINT 
MIDS (N$,5,8) + "." + RIGHTS (N$,4) 

1820 RETURN 


1830 REM ROUTINE DE FIN OU DE RECOM- 
MENCEMENT 


1840 PRINT : VTAB (22): PRINT CHRS (7)"' ERREUR! IL 
NE S'AGIT PAS DE ";SD$(CH) 

1850 PRINT "PRESSEZ UNE TOUCHE —-->";: GET A$ 

1860 GOSUB 1930: RUN 150: REM ON RECOMMENCE 
UN NOUVEAU CATALOGUE 

1870 PRINT CHR$ (21): HOME : PRINT "POUR 
RECOMMENCER, TAPER ‘RUN: END 

1880 PRINT : VTAB (22): PRINT CHRS$ (7);"/0 ERR: 
DISQUE NON INIT. OU PROTEGE": GOTO 1850 

1920 PRINT CHR$ (13)+ CHRS (4) PR#3": RETURN : 
REM ACTIVATION DE LA CARTE 

1930 PRINT CHR$ (21): RETURN : REM 
DESACTIVATION DE LA CARTE 

1940 PRINT CHRS (17): RETURN : REM 40 COLONNES 

1950 PRINT CHRS (18): RETURN : REM 80 COLONNES 

1960 RETURN : REM REMPLACE L. 1930-1950 SI 
L'APPLE N'EST PAS UN IIE OÙ S'IL N'Y À PAS DE 
CARTE 80 COL 

1970 CALL - 936: RETURN : REM PLACE L. 1920 S'IL 
N'Y À PAS DE CARTE 80 COL 


RÉCEMMENT 
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Ce programme a été inspiré par l’ar- 
ticle de Xuan Tung Bui paru dans le 
numéro de Septembre — Octobre 
1982 de Micro-Systèmes, auquel le 
lecteur pourra se reporter s’il désire 
avoir une description plus précise de 
la méthode PERT. 


Cette méthode fut créée il y a quel- 
ques années pour l'établissement de 
plannings de travaux de construc- 
tions. PERT signifie Program Evalua- 
tion and Rewiew Technique. Asso- 
ciée à la méthode du chemin 
critique, cette méthode est couram- 
ment employée pour résoudre les 
problèmes  d’ordonnancement et 
d'organisation. 


L'analyse du chemin critique per- 

met : 

e de détecter les tâches critiques, 
c'est-à-dire celles dont l'exécution 
ne peut être ni retardée, ni ralentie 
sans que la durée totale des tra- 
vaux ne soit prolongée. 

e de déterminer le temps optimal 
nécessaire aux travaux. 

e d'établir un ordonnancement. 


Afin d'utiliser ce programme au 
mieux, il est conseillé de préparer un 
tableau comprenant la liste des 
tâches relatives aux travaux à effec- 
tuer avec en face de chaque tâche : 


© le temps de réalisation le plus pro- 
bable 

e la durée minimale 

e la durée maximale. 


Après la constitution du tableau, il 
faudra dessiner sous forme de gra- 
phe, l’ensemble des activités de ma- 
nière ordonnée. 

Ce graphe se composera de noeuds, 
c'est-à-dire des cercles numérotés re- 
présentant les évènements. Chaque 
cercle sera relié à un autre cercle par 
un arc, représentant les activités ou 
tâches. 

Chaque noeud doit porter un nu- 
méro différent, le point d'arrivée 
d’un arc doit correspondre à un nu- 
méro de noeud supérieur à celui du 
noeud de départ. 

Le chemin défini est donc une suite 
continue d’arcs dont l'extrémité ter- 
minale de l’un est l'extrémité initiale 
de l’autre. Il faut s'assurer que tous 
les chemins du graphe ne sont pas 
interrompus. Si un chemin ne peut 
aboutir, il est indispensable de créer 
un arc fictif de valeur nulle liant les 
extrémités interrompues. 


Le planning obtenu sur l'imprimante 
affichera (voir schéma) : 
— en haut : les numéros de noeuds, 


Pom's n° 19 


La méthode PERT 


— en ordonnée : les activités, 
— en abcisse : la durée. 


Mode d’emploi 


Les possesseurs d'Apple //e avec la 
carte Chat Mauve doivent copier les 
programmes  PURPLESOFT=* et 
PURPLESOFT sur la disquette 
contenant PERT. Avant toute utilisa- 
tion de PERT, il faut faire BRUN 
PURPLESOFT. 

Signalons que PURPLESOFT ne 
fonctionne pas sur un Apple //c. 


Pour lancer PERT, faire RUN PERT 
si l’on a un Apple //e en 80 colonnes 
ou un //c, sinon faire RUN PERTA40. 
On obtient alors le menu suivant : 

— Chemin critique > 

— PERT > permet d'entrer un gra- 
phe avant de le traiter selon l’une ou 
l’autre méthode; le programme de- 


Fe. =. DO mn © © © T'p 


Etablissement du plan 15 

Obtention du permis de construire 30 
Signature des contrats 5 

Transport du matériel au chantier 2 
Installation eau et électricité 3 
Fondations 10 

Transport de terre pour le jardin 2 


Décoration 10 
Décoration intérieure 10 


Serge Cattan 


mande si l’on veut imprimer les ré- 
sultats: il utilise des codes pour 
EPSON RX80,; ceux-ci sont à modi- 
fier si vous avez une autre impri- 
mante. , 

— Lecture d’un graphe existant : un 
exemple est fourni sur la disquette 
d'accompagnement (fichiers MAI- 
SON et MAISON.RESULT);, voir 
l'exemple en encadré. 

— Impression du planning: appelle 
le programme PERT.GRAPH qui ne 
fonctionne que sur Apple //e avec la 
carte Chat Mauve; le hardcopy est 
prévu pour imprimante EPSON 
RX80, à changer si vous avez une 
autre imprimante. 

— Modification d’un graphe existant. 
— Mode d'emploi : appelle le pro- 
gramme PERT.TEXT, qui lance à 
son tour PERT.DEMO); ce dernier ne 
fonctionne que sur Apple //e avec la 
carte Chat Mauve. 


Temps de réalisation des travaux 


probable optimiste pessimiste 


21 
45 
10 


15 
13 
12 
14 
15 
13 


Murs 10 
Toit 12 
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Liste des travaux 


événement au plus tôt 


0,00 
15,29 
49,45 
55,74 
58,74 
58,74 
58,74 
69,42 
79,26 
90,64 

100,41 
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Exemple 


La construction d’une 
maison 


voir schémal 


Réseau de construction 


Les arcs allant du noeud 5 au noeud 
6 et du noeud 5 au noeud 7 sont 
des arcs fictifs de longueur nulle. 


Liste des travaux 


voir encadré 


Traitement du chemin 
critique : 


1—-Classement ordonné des évène- 
ments (noeuds) : 


1->2->3->4->6->5--> 
7->8-->9-->10--> 11 --> fin 


2— Evènements : 
voir table 


3— Activités et durées correspondan- 
tes : 
voir encadré 


4— Ordre du chemin critique : 
1->2->3->4-->65.-->6.--> 
8-->9-->10--> 11--> fin 

avec une longueur estimée de: 
100.414677 


Programme 
PERT.GRAPH 


40 & TEXT1 

50 PRINT 

60 INVERSE : PRINT 

70 HTAB 10: PRINT "GRAPHIQUE 
P.E.R.T.": NORMAL 

80 HTAB 4: VTAB 23: PRINT “TOUCHE 'R' 
POUR RETOUR AU MENU” 

90 ONERR GOTO 940 

100 REM RECUP. RESULTATS 

110 D$ = CHRS (4) 

120 HTAB 5: VTAB 15: FLASH : PRINT 
"PREPAREZ L'IMPRIMANTE S.V.P." 

130 NORMAL : HTAB 1: VTAB 8 

140 INPUT "NOM DU FICHIER ? “NES 

150 IF NE$ = ” THEN 130 

160 IFNES$ = "A" OR NES = "" THEN 860 

170 REM RECUP. RESULTATS 

180 PRINT D$;"OPEN"NES:".RESULT" 

190 PRINT DS$;"READ":NES:;" RESULT“ 

200 INPUT A: INPUT N1 

210 DIM N(N1).E(Nt).L(N1),P(A).T(A), 
DD(A).S(A).L$(A) 

220 FOR | = 1 TO Ni 

230 INPUT N(1): INPUT El): INPUT L(I) 

240 NEXT 

250 FOR | = 1 TO A 

260 INPUT P{1): INPUT S(l): INPUT T(I): 
INPUT DD() 

270 INPUT L${|) 

280 NEXT 

290 INPUT N4 


à 


8—9-—10<11 Fin 


PR PRE | 


Schéma I : Réseau de construction 


Temps 

Activités attendu 
15,29 
34,17 
6,28 
2,29 
3,00 
10,69 
2,25 
9,83 
11,39 
9,53 
9,77 
0,00 
0,00 
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D D D D y y y Ey y By y y 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 





Temps 
maximum 


15,29 arc critique 
34,17 arc critique 

6,28 arc critique 

3,00 

3,00 arc critique 
10,69 arc critique 
25,38 

9,83 arc critique 
11,39 arc critique 
31,91 

9,77 arc critique 

0,00 arc critique 
22,38 


Activités et durées correspondantes 








300 DIM CP(N4) 

310 FOR = 1 TO N4 

320 INPUT CP(I) 

330 NEXT 

340 PRINT D$:"CLOSE" 

350 REM GRAPHE PERT 

360 & GR9 

370 & BACK = 0:& COLOR- 15 

380 K = INT (220 / E(N1)) 

390 FOR | = 1 TO N1 

400 IF E{l) = E{l - 1) AND 1 > 1 THEN L = 10 

410 & POS K * EfI),182 -L 

420L=0 

430 & PRINT N(I): 

440 & POS K * E(I),0 

450 NEXT 

460 FOR I = 1 TO N1 

470 & PLOTK * E{l),10 TO K * E(l),180 

480 NEXT 

490 & PLOT 0,10 TO 560,10 

500 REM ==AFFICHE ABSISSSE =nm= 

510 FOR I = 0 TO L(N1) STEP 10:& POS K * 
10:& PRINT |: & PLOT K ‘1,6 TOK* 
1,14: NEXT 

520 FOR | = 0 TO L(N1) 

530 & PLOT K*1,8 TOK * 1,12 

540 NEXT 

550 REM ===== DESSIN TÂCHES 

560 K1 = INT (152 / A) 

570 FOR | = 1 TO A 

580 GOSUB 900 

590 X=X°KY=175-K1°I 

600 & PLOT X,Y TO X + K * T(I),Y 

610 IF. INT (T(I) * 100 + .5)/ 100 > = INT 
(DD(I) * 100 + .5)/ 100 THEN Y = Y-1 

620 & PLOT X,Y TOX+K°T(I)Y 

630 NEXTI 

640 REM =ammm=DESSIN POINTILLES 

650 FOR | = 1 TO A 


660 FOR J = 1 TO N4 
670 IF S() = CP(J) AND T(!) < DD(I) THEN 
690 


680 GOTO 740 

690 GOSUB 900X = K*X+K°T(I) 

700 FOR JJ = X TO X + K * (DD(I) - T{I)) 
STEP 3 

710 & PLOT W,175-K1*I 

720 NEXT JJ 

730 GOTO 750 

740 NEXT J 

750 NEXTI 

760 PRINT D$:"PR#1" 

770 PRINT CHRS (9)."GE" 

780 & GR9 

790 PRINT CHRS$ (12) 

800 FOR | = 1 TO A 

810 GOSUB 900 

820Y=175-K1°| 

830 & POS 1,Y:& PRINT L$(I) 

840 NEXT 

850 PRINT CHRS (9):"GE” 

860 & TEXTS5 

870 PRINT D$:;"PR#0": PRINT D$;"RUN 
PERT- 

880 INPUT A$: PRINT ASC (A$) 

890 REM ===RECHERCHE ABSISS 

900 FOR J = 1 TO N1 

910 IF N(J) = P(I) THEN X = E(J): GOTO 930 

920 NEXT J 

930 RETURN 

940 REM TRAITEMENT ERREUR 

950 IF PEEK (222) = 5 THEN VTAB 10: 
FLASH : PRINT “FICHIER INEXISTANT”: 
NORMAL : GOTO 970 

960 VTAB 10: FLASH : PRINT “< ERREUR 
>": NORMAL 

970 FORIT = 1 TO 1500: NEXT : RUN 
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Programme PERT 


60 ONERR GOTO 2950 
70 TS 


80 D$ = CHRS$ (4): PRINT D$;"PR#3": PRINT 
90 HOME 
100 POKE 36,33: INVERSE : PRINT 
"METHODE P.E.R.T.";: NORMAL : 
VTAB 8 
110 PRINT 
120 PRINT "CHEMIN CRITIQUE 
—>C" 
130 PRINT "P.ERIT. —> P" 
140 PRINT "LECTURE GRAPHE EXISTANT 
->L" 
150 PRINT "IMPRESSION DU PLANNING 
" 
160 PRINT "MODIF. GRAPHE EXISTANT 
->M" 
170 PRINT "MODE D'EMPLOI 
->E" 
180 PRINT "RETOUR AU BASIC 
->R" 
190 POKE 36,33: VTAB 18: INPUT "VOTRE 
CHOIX ? ":Q$ 
200 IF Q$ < >"C" AND Q$ < > "P" AND Q$ < 
>'L' AND Q$ < > "M" AND Qf$< >"E" 
AND Q$ < > "1" AND Q$ < > "R" AND Q$ 
< >"c" AND Q$ < > "p" ANDQO$ < > 
AND Qf < > "m” AND Q$ < > "e” AND Q$ 
< >" AND Q$ < > "r THEN 90 
210 IF Q$ = "M" OR Q$ = "m”" THEN GOSUB 
3000: GOTO 1740 
220 IF Q$ = "E" OR Of = "e" THEN PRINT 
D$;"RUN PERT.TEXT" 
230 IF Q$ = "!" OR Q$ = 1" THEN PRINT 
D$;"RUN PERT.GRAPH" 
240 IF Q$ = "R" OR Q$ = "r" THEN END 
250 VTAB 22: PRINT : INPUT 
"VOULEZ-VOUS IMPRIMER LES 
RESULTATS ? ":R$ 
260 IF Q$< >'"L" AND Q$ < > 1" THEN 290 
270 Q = 1: HOME : INPUT "NOM DU 
FICHIER ? "NES 
280 GOSUB 2820: GOTO 430 
290 HOME : POKE 36,33: INVERSE : PRINT 
"METHODE P.E.R.T.";: NORMAL : 
VTAB 8 
300 PRINT : INPUT "NOMBRES 
D'ACTIVITES (ARC) ? "A$ 
310 A= VAL (A$): IF À < 2 THEN PRINT * 
UN CHIFFRE > 1 S.V.P.": GOTO 300 
320 GOSUB 340: GOTO 390 
330 REM 
340 IF ME = 1 THEN RETURN 
350 DIM N(A + i},E(A + 1),L(A + 1),LAG(A + 
1),L$(A + 1) 
360 DIM 
T1(A),T2(A).T3(A),T(A),SD(A),DD(A) 
370 DIM CP(A + 1),KL(A + 1),P(A + 1),S(A + 
1).R(A +1) 
380 ME = 1: RETURN 
390 PRINT : FOR I = 1 TO A 
400 PRINT : PRINT : INVERSE : PRINT 
"ACTIVITE *}1;" :*: NORMAL 
410 GOSUB 2500 
420 NEXTI 
430 PRINT :IF LEFTS$ (R$,1) = "O" OR 
LEFT$ (R$,1) = "0" THEN PRINT 
D$;"PR#1" 
440 REM CLASSEMENT EVENEMENT 
450 N1 =0 
460 FOR I =1TOA 
470 FOR J = 1 TONI 
480 IF P(I) = N(J) GOTO 520 
490 NEXT J 
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500 N1=N1+1 
510 N(N1) = P(I) 
520 FOR J = 1 TO Ni 
530 IF S(I) = N(J) GOTO 570 
540 NEXTJ 
550 N1=N1+1 
560 N(N1) = S(I) 
570 NEXTI 
580 IF Q$ = "C" OR Q$ = "c” THEN 660 
590 : 
600 FOR I = 1 TO A 
610 T{1) = (T2{1) + (4 * T1(1)) + TH) /6 
620 SD(I) = (T1) - T2(1)) /6 
630 KI=2* RND(1)-1 
640 T{1) = T(I) + (SD(I) * KI) 
NEXT I 


660 PRINT : PRINT 

670 REM 

680 CL = 1: GOSUB 700: GOTO 910 
690 REM ==== PROG DE CLASSEMENT 
700 FOR I = 1 TO A 

710 R()=1 

720 NEXTI 

730 A1=A 

740 A1 = A1 -1 

750 A2 =0 

760 FOR I = 1 TO A1 

770 K=R(I) 

780 K1 = R(I+ 1) 

790 IF CL = 1 THEN 820 

800 IF S(K) > = S(K1) THEN 870 
810 GOTO 830 

820 IF PK) < = P(K1) THEN 870 
830 A1 = RA(I) 

840 R(I) = R(I+ 1) 

850 R(1+ 1) = R1 

860 A2 =1 

870 NEXTI 

880 IF A2 = 1 THEN 740 

890 RETURN 


910 FORI=1TOA 

920 K = R(I) 

930 A3 = P(K) 

940 GOSUB 1750 

950 11 = K3 

960 K = R(I) 

970 A3 = S(K) 

980 GOSUB 1750 

990 12 = K3 

1000 K = R(I) 

1010 M = E(l1) + T(K) 
1020 IF E(I2) > = M THEN 1050 
1030 K =R() 

1040 E(I2) = E(l1) + T(K) 
1050 NEXT I 

1060 REM 

1070 CL = 0: GOSUB 700 
1080 : 

1090 FORI=1TOA 
1100 K = R(I) 

1110 A3 = S(K) 

1120 GOSUB 1750 
1130 11 = K3 

1140 K =R(I) 

1150 A3 = P(K) 

1160 GOSUB 1750 
1170 12 = K3 

1180 K = R(I) 

1190 M = L(I1) + T(K) 
1200 IF L(I2) > = M THEN 1230 
1210 K=R(I) 

1220 L(I2) = L(I1) + T(K) 
1230 NEXTI 

1240 K =R(1) 

1250 A3 = S(K) 

1260 GOSUB 1750 
1270 C = E(K3) 





1280 FOR I = 1 TO N1 
1290 L(I) = C - L(I) 


.1300 NEXT | 


1310 REM CALCUL INTERVALLE TEMPS 


1320 FOR I = 1 TONI 


1330 LAG(I) = L(!) - E(I) 
NEXT | 


1350 REM 

1360 FOR I = 1 TO N1 
1370 R(l)=1 

1380 NEXT 


1390 FOR 1=1 TONI -1:FORJ=1+1 TONI 


-1 
1400 IF E{l) < = E(J) THEN 1430 

1410 TA = E(I):E(I) = E(J):E() = TA 

1420 TA = R(I):R(I) = R(J):R(J) = TA 

1430 NEXT JI 

1440 REM RESULTATS 

1450 GOSUB 1850 

1460 REM CEHMIN CRITIQUE 

1470 KK=1 

1480 FOR I = 1 TO N1 

1490 IF ABS (LAG(I)) > = 0.01 THEN 1550 
1500 LAG(I) = 0 

1510 CP{KK) = N(I) 

1520 KL(KK) = N(I) 

1530 N4 = KK 

1540 KK = KK + 1 

1550 NEXT | 

1560 N5 = N4 - 1 


1590 FOR J = 11 TO N4 

1600 IF KL(I) > KL(J) THEN 1630 

1610 IF KL(I) < KL(J) THEN 1690 

1620 IF CP(I) < = CP(J) THEN 1690 

1630 IT = KL(I) 

1640 JT = CP(I) 

1650 KL(I) = KL(J) 

1660 CP(I) = CP(J) 

1670 KL(J) = IT 

1680 CP(J) = JT 

1690 NEXT J,I 

1700 GOSUB 2070 

1710 IF LEFTS (R$,1) < >"O" AND LEFTS$ 
(R$,1) < > "o" THEN VTAB 22: GOSUB 
2690 

1720 IF Q = 1 OR Q$ = "L" OR Q$ = 1 THEN 
1740 

1730 GOSUB 2710 

1740 PRINT D$:;"PR#0": RUN 

1750 REM 

1760 FOR J = 1 TO N1 

1770 K3 = J 

1780 IF CA = 1 THEN 1810 

1790 IF N(K3) = A3 THEN 1840 

1800 GOTO 1820 

1810 IF N(R(K3)) = A3 THEN 1840 

1820 NEXT J 

1830 PRINT : PRINT “PAS DE NUMERO 
D'ACTIVITE *;A3 

1840 RETURN 

1850 HOME 

1860 PRINT CHRS (14)* "NES: PRINT : 
PRINT : PRINT 

1870 PRINT "CLASSEMENT ORDONNE DES 
EVENEMENTS (NOEUDS) 

1880. PRINT *————— 

1890 PRINT :CE = 0 

1900 FOR J = 1 TO N1: PRINT N(R(J)):"-> ; 

1910 CE = CE + 1: IF CE > 13 THEN CE = 0: 
PRINT 

1920 NEXT J: PRINT “FIN”: PRINT : PRINT : 
PRINT 

1930 IF LEFTS (R$,1) < >"O” AND LEFTS 
(R$,1) < > "0" THEN GOSUB 2690 

1940 REM IMPRESSION DELAIS 

1950 HOME : POKE 36,35: INVERSE : 


Pa 


M we 


L'EUPTEUR 


25 





PRINT * EVENEMENTS ";: NORMAL : 
PRINT 

1960 PRINT T$ 

1970 PRINT“ —— DELAI * 

1980 PRINT "EVENEMENT":: POKE 36,15: 
PRINT "AU PLUS TOT”;: POKE 36,40: 
PRINT “AU PLUS TARD”; 

1990 POKE 36,60: PRINT “ECART" 

2000 PRINT T$ 

2010 FOR I = 1 TONI 

2020 PRINT N(R(I)):: POKE 36,19: PRINT 
INT (100 * E{l) + .5) / 100:;: POKE 36,44: 
PRINT INT (100 * L(R(I)) + 5) / 100; 

2030 POKE 36,62: PRINT INT (100 * 
LAG(R(I)) + .5) / 100 

2040 NEXT | 

2050 PRINT T$ 

2060 RETURN 

2070 REM CHEMIN CRITIQUE 

2080 IF LEFTS (R$,1) < >"O" AND LEFTS$ 
(R$,1) < > "0" THEN GOSUB 2690 

2090 PRINT CHRS (12) 

2100 T5 = 0: PRINT : PRINT 

2110 HOME : POKE 36,18: INVERSE : 
PRINT * ACTIVITES ET DUREES 
CORRESPONDANTES.": NORMAL : 
PRINT 

2120 PRINT T$ 

2130 PRINT "ACTIVITES": POKE 36,12: 
PRINT "DE”;: POKE 36,20: PRINT “A":: 
POKE 36,24: PRINT “TEMPS 
ATTENDU";: POKE 36,40: PRINT 
"TEMPS MAX." 

2140 PRINT T$ 

2150 CA=1 

2160 FOR I = 1 TO À 

2170 A3 = P(I) 

2180 GOSUB 1750 

2190 11 = K3 

2200 A3 = S() 

2210 GOSUB 1750 

2220 I2=K3 

2230 D = L(R(I2)) - E(I1) 

2240 DD(I) = D 

2250 IF ABS (T(I) - D) < 0.001 THEN 2290 

2260 PRINT "A “:: POKE 36,12: PRINT 
P(I):: POKE 36,15: PRINT “> ";: POKE 
36,20: PRINT S(l);: POKE 36,28: PRINT 
INT (100 * T(I) + .5) / 100: 

2270 POKE 36,44: PRINT INT (100 * D + 5) / 
100 

2280 GOTO 2320 

2290 PRINT "A “:l:: POKE 36,12: PRINT 
P(I);: POKE 36,15: PRINT “> “:: POKE 
36,20: PRINT S{l);: POKE 36,28: PRINT 
INT (100 * T(I) + 5) / 100: 

2300 POKE 36,44: PRINT INT (100 * D + .5) / 
100;: POKE 36,56: PRINT “** ARC 
CRITIQUE *** 

2310 T5 = T5 + T(I) 

2320 NEXT | 

2330 PRINT T$ 

2340 IF LEFTS (R$,1) < >"O" AND LEFTS$ 
(R$,1)< > "0" THEN GOSUB 2690 

2350 HOME 

2360 PRINT : PRINT : PRINT 

2370 PRINT “VOICI L'ORDRE DU CHEMIN 





CRITIQUE :" 
2380 PRINT *-——— d 
2390 FOR J = 1 TO N4: PRINT CP(J);"-> ”: 
2400 NEXT J 


2410 PRINT "FIN" 

2420 PRINT : PRINT 

2430 PRINT “.. AVEC UNE LONGUEUR 
ESTIMEE DE : "T5 

2440 IF Q = 1 THEN 2480 

2450 HTAB 0: VTAB 15 

2460 INPUT "NOM DÙ FICHIER A 


SAUVEGARDER ? “NES$ 

2470 IFNES$ =” THEN 2450 

2480 GOSUB 3120: REM SAUVEGARDE 
RESULTATS 

2490 RETURN 

2500 REM ENTREE DONNEES 

2510 INPUT "LIBELLE DE L'OPERATION 


LS$(1) : 

2520 INPUT “POINT DE DEPART P$:P(l) 
= VAL (P$) 

2530 INPUT "POINT D'ARRIVEE :";S$:S(l) 
= VAL (S$) 


2540 IF P(l) > = S{l) OR P(I) < = 0 THEN 
PRINT "< ERREUR >": GOTO 2520 

2550 IF Q$ < > "C" AND Qf < > "c" THEN 
2590 

2560 INPUT "DUREE ":TI$ 

2570 IF TI$< >"0" AND VAL (TI$) = 0 THEN 
PRINT “< ERREUR >": GOTO 2560 

2580 T(l) = VAL (TI$): GOTO 2670 

2590 INPUT "DELAI D'EXECUTION LE PLUS 
PROBABLE :":T1$ 

2600 IF T1$ < > "0" AND VAL (T1$) =0 THEN 
PRINT *< ERREUR >": GOTO 2590 

2610 Ti(l} = VAL (T1$) 

2620 IF T1(1) =0 THEN T2{(I) = 0:T3(I) = 0: 
GOTO 2670 

2630 INPUT * LE PLUS OPTIMISTE 
"T2$:T2(I) = VAL (T2$) 

2640 IF T2(I) > T1(1) OR (T2$ < > "0" AND 
VAL (T2$) = 0) THEN PRINT "< ERREUR 
>": GOTO 2630 

2650 INPUT * LE PLUS PESSIMISTE 
T3$T3(I) = VAL (T3$) 

2660 IF T3{1) < T1(1) THEN PRINT “< 
ERREUR >": GOTO 2650 

2670 RETURN 

2680 REM 

2690 PRINT : PRINT "APPUYEZ SUR UNE 
TOUCHE POUR LA SUITE.": GET C$ 

2700 RETURN 

2710 REM SAUVEGARDE SUR DISQUE 

2720 PRINT 

2730 PRINT D$;"OPEN";NES 

2740 PRINT D$;"WRITE";NES$ 

2750 PRINT A: PRINT Q$ 

2760 FOR I = 1 TO A 

2770 PRINT P{I}: PRINT S(1): PRINT T(I): 
PRINT T1(1): PRINT T2(I): PRINT T3(!) 

2780 PRINT L$(l) 

2790 NEXT 

2800 PRINT D$:"CLOSE" 

2810 RETURN 

2820 REM LECTURE ENREGISTREMENT 

2830 INVERSE : HTAB 20: VTAB 10: PRINT 
"UN PEU DE PATIENCE..." NORMAL 

2840 PRINT 

2850 PRINT D$;"OPEN":NES$ 

2860 PRINT D$;"READ":NES$ 

2870 INPUT A: INPUT Q$ 

2880 A = À + 1: GOSUB 340:A = À - 1 

2890 FOR I =1TOA 

2900 INPUT P({1): INPUT S(1): INPUT T(I): 
INPUT T1(1): INPUT T2(I): INPUT T3(l) 

2910 INPUT L$(!) 

2920 NEXT 

2930 PRINT D$;"CLOSE" 

2940 RETURN 

2950 REM TRAITEMENT ERREUR 

2960 IF PEEK (222) = 5 THEN VTAB 10: 
PRINT "FICHIER INEXISTANT": GOTO 
2980 

2970 PRINT "ERREUR" 

2980 FORIT = 1 TO 1000: NEXT 

2990 GOTO 1740 

3000 REM MODIF ENREGISTREMENT 

3010 HOME 

3020 INPUT "NOM DU FICHIER À MODIFIER 





? "NES 

3030 GOSUB 2840 

3040 PRINT "VOULEZ - VOUS AJOUTER 
UNE ACTIVITE AUX ":;A;" ACTIVITES 


EXISTANTES ”:; 

3050 INPUT R$ 

3060 IF LEFTS (R$,1) < >"O" AND LEFTS$ 
(R$,1) < > "0" THEN 3080 

3070 À = À + 1: = A: GOTO 3090 

3080 INPUT "NUMERO DE L'ACTIVITE A 
MODIFIER ? 

3090 GOSUB 2510 

3100 GOSUB 2720 

3110 RETURN 

3120 REM SAUVEGARDE RESULTATS 

3130 PRINT D$;"OPEN"NES:". RESULT” 

3140 PRINT DS$:"WRITE";NE$:" RESULT" 

3150 PRINT A: PRINT N1 

3160 FOR I = 1 TON! 

3170 PRINT N(R(I)): PRINT El): PRINT 
L(R(I)) 

3180 NEXT 

3190 FOR | = 1 TO A 

3200 PRINT PI}: PRINT SI): PRINT (I): 
PRINT DD(I) 

3210 PRINT L$(I) 

EXT 


3230 PRINT N4 
3240 FOR I = 1 TO N4 
3250 PRINT CP(I) 

3260 NEXT 

3270 PRINT D$:"CLOSE" 
3280 RETURN 





Programme 
PERT40 


60 ONERR GOTO 2960 

70 Te mn 

80 D$ = CHRS (4): PRINT 

90 HOME 

100 HTAB 10: INVERSE : PRINT "METHODE 
P.E.R.T.";: NORMAL : VTAB 8 

110 PRINT 

120 PRINT "CHEMIN CRITIQUE 

130 PRINT PER. P 

140 PRINT "LECTURE GRAPHE EXISTANT 


—> C” 


—> L" 

150 PRINT “IMPRESSION DU PLANNING 
>|" 

160 PRINT "MODIF. GRAPHE EXISTANT 
->M" 

170 PRINT "MODE D'EMPLOI ->E" 

180 PRINT "RETOUR AU BASIC ->R" 


190 HTAB 10: VTAB 18: FLASH : PRINT 
"VOTRE CHOIX ? ";: NORMAL : GET Qf: 
PRINT Q$: NORMAL 

200 IF Q$ < >"C” AND Q$ < > "P" AND Q$ < 
>'"L" AND Q$ < > "M" AND Of < >"E" 
AND Qf < >!" AND Q$ < > "R" AND Q$ < 
> "c" AND Qf < > "p” AND Q$ < > "1 AND 
Q$ < >"m” AND Q$ < > "e” AND Q$ < > 
"7" AND Qf$ < > "r" THEN 90 

210 IF Q$ = "M" OR Q$ = “m" THEN GOSUB 
3010: GOTO 1740 

220 IF Q$ = "E" OR Q$ = "e" THEN PRINT 
D$;"RUN PERT.TEXT" 

230 |F Q$ = "!" OR Q$ = 1" THEN PRINT 
D$:"RUN PERT.GRAPH" 

240 IF Q$ = "R" OR Q$ = “" THEN END 

250 VTAB 22: PRINT : INPUT 
"VOULEZ-VOUS IMPRIMER LES 
RESULTATS ? ":R$ 

260 IF Q$ < >'"L" AND Q$ < > 1" THEN 290 

270 Q = 1: HOME : INPUT "NOM DU FICHIER 
?"NES$ 
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280 GOSUB 2830: GOTO 430 
290 HOME : HTAB 10: INVERSE : PRINT 
"METHODE P.E.R.T.";: NORMAL : VTAB 


8 

300 PRINT : INPUT "NOMBRES 
D'ACTIVITES (ARC) ? ";A$ 

310 A= VAL (A$): IF A < 2 THEN PRINT “ UN 
CHIFFRE > 1 S.V.P.": GOTO 300 

320 GOSUB 340: GOTO 390 

330 REM 

340 IF ME = 1 THEN RETURN 

350 DIM N(A + 1).E(A + 1),L(A + 1), LAG(A + 
1) L$(A + 1) 

360 DIM 
T1(A).T2(A),T3(A).T(A),SD(A),DD(A) 
370 DIM CP(A + 1),KL(A + 1),P(A + 1),S(A + 

1),R(A +1) 
380 ME = 1: RETURN 
390 PRINT : FOR | = 1 TO A 
400 PRINT : PRINT : INVERSE : PRINT 
"ACTIVITE *;1;" :": NORMAL 
410 GOSUB 2510 
NB : Les lignes 420 à 1700 sont 
identiques à celles du 
programme PERT 
1710 IF LEFTS (R$,1) < >"O" AND LEFTS 
(R$,1) < > "o" THEN VTAB 22: GOSUB 
2700 
1720 IF Q = 1 OR Q$ = "L" OR Q$ = 1" THEN 
1740 
1730 GOSUB 2720 
1740 PRINT D$;"PR#0": RUN 
1750 REM 
1760 FOR J = 1 TO N1 
1770K3 =J 
1780 IF CA = 1 THEN 1810 
1790 IF N(K3) = A3 THEN 1840 
1800 GOTO 1820 
1810 IF N(R(K3)) = A3 THEN 1840 
1820 NEXT J 
1830 PRINT : PRINT "PAS DE NUMERO 
D'ACTIVITE ";,A3 
1840 RETURN 
1850 HOME 
1860 PRINT CHRS (14): 
PRINT : PRINT 
1870 PRINT "CLASSEMENT ORDONNE 
DES EVENEMENTS :* 
1880 PAINT *-—  "  " "  " " " 
1890 PRINT :CE = 0 
1900 FOR J = 1 TO N1: PRINT N(R(J));"-> "; 
1910 CE = CE + 1:1F CE > 13 THEN CE = 0: 
PRINT 
1920 NEXT J: PRINT "FIN": PRINT : PRINT : 
PRINT 
1930 IF LEFT$ (R$,1) < >"O” AND LEFT$ 
(R$,1) < >"o" THEN GOSUB 2700 
1940 REM IMPRESSION DELAIS 
1950 HOME : HTAB 12: INVERSE : PRINT * 
EVENEMENTS *;: NORMAL : PRINT 
1960 PRINT T$ 
1970 PRINT * — DELAI —" 
1980 PRINT “EVENEMENT";: HTAB 12: 
PRINT “AU + TOT”;: HTAB 22: PRINT "AU 
+ TARD”; 
1990 HTAB 34: PRINT "ECART" 
2000 PRINT T$ 
2010 FOR I = 1 TO N1 
2020 PRINT N(R(I));: HTAB 15: PRINT INT 
(100 * E{l) + .5) / 100;: HTAB 25: PRINT 
INT (100 * L(R(I)) + .5) / 100; 
2030 HTAB 35: PRINT INT (100 * LAG(R(I)) 
+.5) / 100 
2040 NEXT | 
2050 PRINT T$ 
2060 RETURN 
2070 REM 
2080 IF LEFTS$ (R$,1) < >"O" AND LEFT$ 


"NES: PRINT : 
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(R$,1) < > "0" THEN GOSUB 2700 

2090 PRINT CHRS (12) 

2100 T5 = 0: PRINT : PRINT 

2110 HOME : HTAB 2: INVERSE : PRINT * 
ACTIVITES ET DUREES 
CORRESPONDANTES.";: NORMAL : 
PRINT 

2120 PRINT T$ 

2130 HTAB 22: PRINT “— TEMPS —" 

2140 PRINT "ACTIVITES": HTAB 13: PRINT 
"DE": HTAB 19: PRINT "A";: HTAB 21: 
PRINT “ATTENDU": HTAB 33: PRINT 
"MAX." 

2150 PRINT T$ 

2160 CA = 1 

2170 FOR I = 1 TO A 

2180 A3 = P(I) 

2190 GOSUB 1750 

2200 11 = K3 

2210 A3 = S(l) 

2220 GOSUB 1750 

2230 2 = K3 

2240 D = L(R(I2)) - E(i1) 

2250 DD(I) = D 

2260 IF ABS (T(I) - D) < 0.001 THEN 

2300 


2270 PRINT "A “1: HTAB 13: PRINT P(I);: 
HTAB 14: PRINT “> “:: PRINT S{);: 
HTAB 23: PRINT INT (100 * T{I) + .5)/ 
100; 

2280 HTAB 33: PRINT INT (100 * D + .5)/ 
100 

2290 GOTO 2330 

2300 PRINT "A “:l:: HTAB 13: PRINT P(l);: 
HTAB 14: PRINT " —> ";: PRINT S(l):: 
HTAB 23: PRINT INT (100 * T{I) + .5)/ 
100; 

2310 HTAB 33: PRINT INT (100 * D + .5)/ 
100;: HTAB 5: INVERSE : PRINT 
"CRITIQUE": NORMAL 

2320 T5 = T5 + T(I) 

2330 NEXT | 

2340 PRINT T$ 

2350 IF LEFTS (R$,1) < > "O" AND LEFTS 
(R$,1) < >"o" THEN GOSUB 2700 

2360 HOME 

2370 PRINT : PRINT : PRINT 

2380 PRINT "VOICI L'ORDRE DU CHEMIN 
CRITIQUE | 

2200. PANT "+ 

2400 FOR J = 1 TO N4: PRINT CP(J)"-> “; 

2410 NEXTJ 

2420 PRINT "FIN" 

2430 PRINT : PRINT 

2440 PRINT *.. AVEC UNE LONGUEUR 
ESTIMEE DE : “: PRINT : HTAB 15: 
PRINT T5 

2450 IF Q = 1 THEN 2490 

2460 HTAB 1: VTAB 15 

2470 INPUT "NOM DU FICHIER A 
SAUVEGARDER ? “NES 

2480 IF NE$ = THEN 2460 

2490 GOSUB 3130: REM SAUVEGARDE 
RESULTATS 

2500 RETURN 

2510 REM 

2520 INPUT "LIBELLE DE L'OPERATION 
L$() 

2530 INPUT “POINT DE DEPART _:";P$:P(I) 
= VAL (P$) 

2540 INPUT “POINT D'ARRIVEE _:";S$:S(I) 
= VAL (S$) 

2550 IF P(I) > = S(I) OR P(I) < = 0 THEN 
PRINT “< ERREUR >": GOTO 2530 

2560 IF Q$ < >"C" AND Q$ < > "c" THEN 
2600 

2570 INPUT “DUREE “:TI$ 

2580 IF TI$ < > "0" AND VAL (TI$) = 0 THEN 
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PRINT "< ERREUR >": GOTO 2570 

2590 T(l) = VAL (TI$): GOTO 2680 

2600 INPUT "DELAI D'EXECUTION LE 
PLUS PROBABLE :"T1$ 

2610 IF T1$< >"0" AND VAL (T1$) =0 
THEN PRINT “< ERREUR >": GOTO 2600 

2620 T1(I}= VAL (T1$) 

2630 IF T1(1) =0 THEN T2{I) = 0:T3(1) = 0: 
GOTO 2680 

2640 INPUT LE PLUS OPTIMISTE 
MT2$:T2(I) = VAL (T2$) 

2650 IF T2(I) > T1(1) OR (T2$ < > "0" AND 
VAL (T2$) = 0) THEN PRINT "< ERREUR 
>": GOTO 2640 

2660 INPUT " LE PLUS 
PESSIMISTE :";T3$:T3(1) = VAL (T3$) 

2670 IF T3(I) < T1(1) THEN PRINT “< 
ERREUR >": GOTO 2660 

2680 RETURN 

2690 REM 

2700 PRINT : PRINT "APPUYEZ SUR UNE 
TOUCHE POUR LA SUITE.": GET C$ 

2710 RETURN 

2720 REM 

2730 PRINT 

2740 PRINT D$;"OPEN";NES$ 

2750 PRINT D$;"WRITE";NES$ 

2760 PRINT A: PRINT Q$ 

2770 FOR I =1TOA 

2780 PRINT P(l): PRINT S(!): PRINT T(): 
PRINT T1(1): PRINT T2(1): PRINT T3{1) 

2790 PRINT L$(l) 

2800 NEXT 

2810 PRINT D$;"CLOSE" 

2820 RETURN 

2830 REM 

2840 INVERSE : HTAB 20: VTAB 10: PRINT 
"UN PEU DE PATIENCE...": NORMAL 

2850 PRINT 

2860 PRINT D$;"OPEN";NES$ 

2870 PRINT D$;"READ";NES$ 

2880 INPUT A: INPUT Q$ 

2890 A = À + 1: GOSUB 340:A = A -1 

2900 FOR | = 1 TO A 

2910 INPUT P{I): INPUT S{1): INPUT T(l): 
INPUT T1(1): INPUT T2(1}: INPUT T3(1) 

2920 INPUT L$(1) 

2930 NEXT 

2940 PRINT D$;"CLOSE" 

2950 RETURN 

2960 REM 

2970 IF PEEK (222) = 5 THEN VTAB 10: 
PRINT “FICHIER INEXISTANT": GOTO 
2990 

2980 PRINT "ERREUR" 

2990 FORIT = 1 TO 1000: NEXT 

3000 GOTO 1740 

3010 REM 

3020 HOME 

3030 INPUT "NOM DU FICHIER A MODIFIER 
? "NES 

3040 GOSUB 2850 

3050 PRINT "VOULEZ - VOUS AJOUTER 
UNE ACTIVITE AUX “;A;" ACTIVITES 
EXISTANTES "; 

3060 INPUT R$ 

3070 IF LEFTS$ (R$,1) < >"O" AND LEFT$ 
(R$,1) < > "0" THEN 

3090 

3080 A = À + 1:1 = A: GOTO 3100 

3090 INPUT "NUMERO DE L'ACTIVITE A 
MODIFIER ? “; 

3100 GOSUB 2520 

3110 GOSUB 2730 

3120 RETURN 

3130 REM 

3140 PRINT D$;"OPEN";NE$;". RESULT" 

3150 PRINT D$;"WRITE";NES$;" RESULT" 
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3160 PRINT A: PRINT N1 

3170 FOR | = 1 TO N1 

3180 PRINT N(R(I)): PRINT E(l): PRINT 
L(R(I)) 

3190 NEXT 

3200 FOR I = 1 TO A 

3210 PRINT P(l): PRINT S(1): PRINT T(l): 
PRINT DD(I) 

3220 PRINT L${(I) 

3230 NEXT 

3240 PRINT N4 

3250 FOR | = 1 TO N4 

3260 PRINT CP(I) 

3270 NEXT 

3280 PRINT D$:"CLOSE" 

3290 RETURN 





Programme 
PERT.TEXT 


20 HOME : HTAB 20: PRINT "LA METHODE 
P.E.R.T." 

30 SPEED= 90 

40 PRINT : PRINT "Cette méthode fut créée 
il y a quelques années pour 
l'établissement de” 

50 PRINT "plannings de travaux de 
constructions": PRINT "P.E.R.T. signifie 
Program Evaluation and Rewiew 
Technique." 

60 PRINT "Associée à la méthode du chemin 
critique cette méthode est couramment 
employée” 

70 PRINT “pour résoudre les problèmes 
d'ordonnancement et d'organisation." 

80 PRINT 

90 PRINT "L'analyse du chemin critique 
permet 

100 PRINT "- de détecter les taches 
critiques"; 

110 PRINT "c'est à dire celles dont 
l'éxécution ne peut etre ni retardée, ni 
ralentie ”; 

120 PRINT “sans que le temps total des 
travaux ne soit”: PRINT "reporté." 

130 PRINT ‘- déterminer le meilleur temps 
total des travaux.” 

140 PRINT ‘- établir un ordonnancement." 

150 PRINT : PRINT "Afin d'utiliser ce 
programme au mieux,il est conseillé de 
préparer un” 

160 PRINT "tableau comprenant la liste des 
taches relatives aux travaux à effectuer" 

170 PRINT “avec en face de chaque tache: 
le temps de réalisation le plus probable" 


180 PRINT * la durée 
minimale,” 

190 PRINT * la durée 
maximale.” 


200 PRINT “Aprés constitution du tableau il 
faudra dessiner sous forme de graphe,” 

210 PRINT “l'ensemble des activités de 
maniere ordonnée." 

220 PRINT “Ce graphe se composera de 
noeuds, c'est à dire des cercles 
numérotés" 

230 PRINT ‘“representant les 
événements.Chaque cercle sera relié à 
un autre cercle” 

240 PRINT ‘par un arc,représentant les 
activités ou taches." 

250 PRINT “Chaque noeud doit porter un 
numéro different" 

260 PRINT “le point d'arrivée d'un arc doit 
correspondre à un numéro de noeud 
supérieur" 

270 PRINT “au noeud de départ." 


280 PRINT "Le chemin défini est donc une 
suite continue d'arcs dont l'extrémité 
terminale” 

290 PRINT "de l'un est l'extrémité initiale de 
l'autre.Il faut s'assurer que tous les” 

300 PRINT "chemins du graphe ne sont pas 
interrompus.Si un chemin ne peut 
aboutir," 

310 PRINT “il est indispensable de créer un 
arc fictif de valeur nulle liant les” 

320 PRINT ‘extrémités interrompues." 

330 PRINT : PRINT "Le planning obtenu sur 
l'imprimante affichera :": PRINT “en haut 
les numéros de noeuds,” 

340 PRINT "en ordonnée les activités,” 

350 PRINT "en abcisse la durée." 

360 PRINT : PRINT 

370 SPEED= 255 

380 PRINT "CE LOGICIEL A ETE INPIRE 
PAR L'ARTICLE DE XUAN TUNG BUI 
PARU" 

390 PRINT "DANS MICRO-SYSTEME EN 
SEPTEMBRE-OCTOBRE 1982." 

400 PRINT : INVERSE : INPUT “APPUYEZ 
SUR UNE TOUCHE POUR UNE 
DEMONSTRATION":R$ 

410 NORMAL : PRINT 

420 PRINT CHRS (4);"RUN PERT.DEMO" 





Programme 
PERT.DEMO 

40 & GR 10 

50 & POS 110,180 

60 & COLOR= 0: & BACK = 15 

70 & PRINT "EXEMPLE"; 

80 & COLOR= 15: & BACK = 0 

90 & PRINT " RESEAU DE 
CONSTRUCTION"; 


100 & POS 110,172: & PRINT "=== 


110 & POS 1,136: & PRINT "1"; 


120 & PLOT 10,140 TO 40,140 
130 & POS 25,144: 8& PRINT "a"; 
140 & POS 45,136: & PRINT "2"; 
150 & PLOT 60,140 TO 90,140 
160 & POS 75,144: 8& PRINT "b"; 
170 & POS 95,136: & PRINT "3"; 
180 & PLOT 110,140 TO 140,140 
190 & POS 125,144: & PRINT "c"; 
200 & POS 145,136: & PRINT "4"; 
210 & POS 175,143: & PRINT "e”; 
220 & PLOT 160,140 TO 190,140 
230 & POS 195,136: & PRINT "5"; 
240 & POS 295,144: & PRINT "h"; 
250 & PLOT 280,140 TO 310,140 
260 & POS 272,136: & PRINT "8"; 
270 & POS 345,144: 8& PRINT "fr"; 
280 & PLOT 330,140 TO 360,140 
290 & POS 315,136: & PRINT "9"; 
300 & PLOT 380,140 TO 410,140 
310 & POS 395,144: 8& PRINT "k"; 
320 & POS 363,136: & PRINT "10"; 
330 & POS 413,136: & PRINT "11 Fin”; 
340 & PLOT 152,145 TO 230,162 
350 & POS 167,155: & PRINT "d'; 
360 & POS 260,152: & PRINT "f"; 
370 & POS 235,165: & PRINT "6"; 
380 & PLOT 245,162 TO 270,145 
390 & PLOT 152,135 TO 230,110 
400 & POS 175,115: & PRINT "g"; 
410 & POS 235,100: & PRINT "7"; 
420 & PLOT 250,110 TO 365,135 
430 & POS 285,110: & PRINT "j"; 
440 & PLOT 205,145 TO 238,160 
450 & PLOT 205,135 TO 235,115 
& 


460 & POS 10,80: & PRINT "LES ARCS 





ALLANT DU NOEUD 5 AU NOEUD 6,ET 
DU NOEUD 5 AU NOEUD 7 SONT DES 
ARCS"; 

470 & POS 10,70: & PRINT "FICTIFS DE 
VALEUR NULLE."; 

480 & COLOR 0: & BACK = 15 

490 & POS 10,30: & PRINT "APPUYEZ 
SUR UNE TOUCHE POUR LA LISTE 
DES TRAVAUX CORRESPONDANT A 
CE GRAPHE." 

500 & COLOR 15: & BACK = 0 

510 GET A$ 

520 REM LISTE DE TRAVAUX 

530 & TEXT6 

540 T$ = a 

550 INVERSE : POKE 36,28: PRINT 
"EXEMPLE DE LISTE DE TRAVAUX" 

560 NORMAL : PRINT 

570 PRINT T$ 

580 POKE 36,25: PRINT "TACHES"; 

590 POKE 36,47: PRINT "TEMPS DE 
REALISATION DES TRAVAUX" 

600 POKE 36,47: PRINT "PROBABLE 
OPTIMISTE PESSIMISTE" 

610 PRINT T$ 

620 PRINT ‘a lEtablissement du plan”; 

630 POKE 36,50: PRINT *15";: POKE 36,62: 
PRINT * 9";: POKE 36,73: PRINT "21" 

640 PRINT "b lObtention du permis de 
construire”; 

650 POKE 36,50: PRINT “30";: POKE 36,62: 
PRINT "30";: POKE 36,73: PRINT “45° 

660 PRINT "c ISignature des contrats”; 

670 POKE 36,50: PRINT * 5”;: POKE 36,62: 
PRINT * 3";: POKE 36,73: PRINT "10" 

680 PRINT "d !Transport du materiel au 
chantier”; 

690 POKE 36,50: PRINT * 2";: POKE 36,62: 
PRINT * 2";: POKE 36,73: PRINT * 3° 

700 PRINT "e linstallation eau et 
electricite”; 

710 POKE 36,50: PRINT * 3";: POKE 36,62: 
PRINT * 3";: POKE 36,73: PRINT * 3° 

720 PRINT "f Fondations”; 

730 POKE 36,50: PRINT “10";: POKE 36,62: 
PRINT * 8”;: POKE 36,73: PRINT "15" 

740 PRINT ‘"g [Transport de terre pour le 
jardin”; 

750 POKE 36,50: PRINT " 2";: POKE 36,62: 
PRINT " 2";: POKE 36,73: PRINT "13" 

760 PRINT "h Murs”; 

770 POKE 36,50: PRINT “10";: POKE 36,62: 
PRINT * 8”;: POKE 36,73: PRINT "12° 

780 PRINT “i !Toit”; 

790 POKE 36,50: PRINT "12";: POKE 36,62: 
PRINT * 7";: POKE 36,73: PRINT "14" 

800 PRINT "j !Decoration”; 

810 POKE 36,50: PRINT “10";: POKE 36,62: 
PRINT * 8”;: POKE 36,73: PRINT "15" 

820 PRINT "k !Decoration a l'interieur”; 

830 POKE 36,50: PRINT “10";: POKE 36,62: 
PRINT * 9°;: POKE 36,73: PRINT "13" 

840 PRINT T$ 

850 INVERSE 

860 VTAB 21: POKE 36,15: PRINT 
"APPUYEZ SUR LA TOUCHE ‘Z POUR 
RETOUR AU GRAPHE ," 

870 POKE 36,15 

880 PRINT * SUR LA TOUCHE "ENTER" 
POUR RETOUR AU MENU" 

890 NORMAL 

900 GET A$ 

910 IF A$ = "Z" THEN RUN 

920 IF A$ < > CHRS$ (13) THEN 520 

930 PRINT 

940 PRINT CHRS (4);"RUN PERT" 
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Mémoire-tampon d’écran 


Que vous soyez utilisateur d’un 
Apple II+ avec ”’carte langage”, d’un 
Apple //e ou d’un Apple //c, vous ne 
disposez toujours que d'un système 
48 K lorsque vous programmez en 
Applesoft, car les 16 K supplémentai- 
res ne vous sont pas directement ac- 
cessibles. 

Pom's vous a déjà présenté plusieurs 
routines permettant d'exploiter cette 
réserve de mémoire : extensions du 
Basic s’y logeant en partie, comme 
Haïfa, disque virtuel... 

Nous vous proposons maintenant de 
l'utiliser comme zone de stockage 
pour des écrans 40 colonnes et les 
variables qu'ils peuvent éventuelle- 
ment contenir. Ceci permet de rap- 
peler facilement des écrans nécessai- 
res en plusieurs points d’un 
programme, notamment ceux qui 
servent à la définition de paramètres 
pour votre application, mais aussi de 
faire passer ces écrans et variables 
d'un programme à un autre, sans 
qu'il soit besoin de les redéfinir dans 
le second. 


Principe et 


mode d’emploi 

Afin de préparer l'extension mémoire 
pour le stockage, il faut tout d’abord 
exécuter le petit programme d'initiali- 
sation listé plus loin par un BRUN 
INIT16K. Cela peut se faire dans le 
tout premier programme utilisant les 
routines concernées ou dans le pro- 
gramme de “boot”. 

Cette initialisation consiste simple- 
ment à mettre un 0 dans le premier 
octet de la zone de stockage, qui doit 
contenir à tout moment le nombre 
d'écrans effectivement stockés. 


Pour ce qui est des routines de mani- 
pulation d'écrans, nous utiliserons, 
une fois encore, un accès via la mo- 
dification de la routine $B1, qui lit les 
octets du programme pour le compte 
de l’interpréteur Applesoft. 

Votre premier programme devra 

donc commencer par les instructions 

de chargement suivantes (voir le lis- 
ting de TESTVIDI16 donné plus 
bas) : 

e BLOAD VID162: chargement (à 
l'adresse $9000) de la routine qui 
assure le traitement des instruc- 
tions de manipulation d'écrans. 

e BLOAD INTER: mise en place 
dans la routine $B1 de l’aiguillage 
qui conduit en $9000 sur VID162. 


Dès lors, votre Basic dispose de 4 
instructions nouvelles dédiées à notre 
mémoire tampon d'écran. C'est le 
caractère |” qui identifie ces instruc- 
tions, qu'il doit toujours précéder; lui- 
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même doit toujours être précédé de 
7. même s’il vient en tout début de 
ligne ou après un THEN. 

e :JS 

Stocke l'écran actuellement affiché 
dans l'extension mémoire, sans mo- 
difier l'affichage. Vous pouvez ’ran- 
ger” ainsi 12 écrans, au-delà, vous 
obtiendrez un message "OUT OF 
MEMORY”. 

Chaque écran archivé est implicite- 
ment numéroté dans l’ordre chrono- 
logique de son archivage. Le premier 
porte logiquement le numéro 1, et 
ainsi de suite. Il n’est donc pas né- 
cessaire (et même pas permis...) de 
préciser ici le numéro d'ordre de 
l'écran stocké. 

e :J]R,I,Z$ 

Retrouve dans l'extension mémoire 
l'écran numéro I, l'affiche et transfère 
dans le tableau Z$ les variables qu’il 
peut contenir. 

Vous pouvez spécifier le numéro 
d'écran par tout moyen à votre 
convenance : chiffres, variable, ex- 
pression numérique... 

Le tableau récepteur des données 
doit, de préférence, être dimensionné 
avant l'appel de fonction, sauf si la 
dimension par défaut peut lui conve- 
nir. Il doit obligatoirement appartenir 
au type alphanumérique et ne 
comporter qu'une seule dimension. 
Pour la routine de restitution d'écran, 
toute partie de cet écran comprise 
entre deux caractères ‘:” constitue 
une chaîne de caractères qui doit 
être affectée comme contenu pour 
l’un des éléments du tableau. 


Si votre écran [| comporte à un en- 
droit donné les caractères suivants : 
:DONNEE 1: 

:DONNEE 2: 

:DONNEE 3: 

et que vous utilisez l'instruction 
JRLT$ 

vous aurez pour résultat, outre le 
rappel à l'affichage de l'écran 1: 
T$(0)=DONNEE 1 

T$(1)=DONNEE 2 

T$(2)=DONNEE 3 


Pour la dernière donnée de l'écran, 
toutefois, si vous manquez de place 
en ‘’VTAB 24 : HTAB 40” pour pla- 
cer un ‘:”, le ‘’:” initial suffira pour 
réaliser l'affectation de la portion 
d'écran qui le suit au dernier élément 
du tableau. 


Si vous spécifiez un numéro d'écran 
I qui n'existe pas dans l'extension 
mémoire, vous obtiendrez un mes- 
sage ‘’ILLEGAL QUANTITY”. 


e .DI 
Détruit l'écran numéro I dans l’exten- 
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sion mémoire. Les écrans qui le sui- 
vent, s’il y en a, sont décalés vers le 
bas de la mémoire et leur numérota- 
tion implicite est remise à jour en 
conséquence. 

Ainsi, si vous détruisez l’écran nu- 
méro 3, le numéro 4 devient le nu- 
méro 3, le 5 devient le 4... 


Chaque fois que vous supprimez un 
écran de cette façon, vous libérez de 
la place pour en stocker un autre, 
mais il ne portera évidemment pas le 
même numéro. Par exemple, si vous 
avez dix écrans en mémoire et que 
vous donnez les instructions suivan- 
tes : 

:JD,1:JS 

le nouvel écran archivé par JS por- 
tera le numéro implicite 10, et non 1 
(voir ci-après pour la modification du 
contenu d’un écran archivé sous un 
numéro donné). 


Là encore, si vous spécifiez un nu- 
méro | inexistant, vous obtiendrez un 
"ILLEGAL QUANTITY” en retour. 


e :JU,I 


Stocke l'écran actuellement affiché à 
l'emplacement réservé à l'écran nu- 
méro I dans l'extension mémoire. 

Il peut s'agir du même écran préala- 
blement rappelé pour modification 
(une nouvelle saisie de la valeur des 
variables, par exemple) ou d'un 
écran totalement différent, qui écra- 
sera donc l’ancien porteur du nu- 
méro I. 


La valeur de I doit correspondre à 
un écran effectivement archivé, sous 
peine de "ILLEGAL QUANTITY”. 


Précisions 
techniques et 
bibliographiques 


Vous trouverez dans le courrier des 
lecteurs du Pom's 10 une explication 
complète sur le mode d'utilisation de 
l'extension mémoire 16 K. 

Nous utilisons ici le Bank 2 (4 K) et 
la partie commune de 8 K, soit un 
ensemble de 12 K, dont les adresses, 
de $D000 à $FFFF, sont les mêmes 
que celles de la ROM de l'Apple. Un 
ensemble d'adresses joue le rôle de 
commutateurs afin de déterminer 
qui, de la ROM ou de l'extension 
RAM, est sélectionné en lecture ou 
écriture. 


Les commutateurs exploités dans 

notre routine sont : 

e $CO80: sélectionne la RAM en 
lecture mais interdit l'écriture. 

e $C081: sélectionne la ROM en 
lecture et autorise l'écriture sur la 
RAM si adressé deux fois (par 
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exemple, avec BIT $CO81: BIT 


$CO081, dans nos routines). 


e $C083: sélectionne la RAM en 
lecture et écriture si adressé deux 
fois. 


Dans l'extension RAM, le premier 
octet (à l'adresse $D000) contient le 
nombre d'écrans stockés, ces der- 
niers s’empilant ensuite à partir de 
$D001. Chacun d’entre eux occupe 
$3C0 octets (soit 24 x 40 caractères 
= 960 octets). 


En ce qui concerne la manipulation 
de la routine $B1, pour implantation 


par BLOAD si vous désirez retrouver 
l'Applesoft standard et supprimer l’in- 
direction menant en $9000. 


Pour ce qui est de la structure des 
tableaux et du mode de stockage des 
éléments, vous trouverez tous les 
renseignements complémentaires, 
s'ils vous sont nécessaires, dans des 
numéros précédents de Pom's (12 et 
17, par exemple). 


Les quelques routines empruntées à 
la ROM de l'Apple dans le cadre de 
notre programme sont : 


e $FBCI1 : calcule l'adresse base de 


e $DEBE : vérifie la présence d’une 
virgule à l'adresse pointée par le 
pointeur de programme Applesoft 
($B8 - $B9) et lit le caractère sui- 
vant. 

e $DD67: évalue l'expression nu- 
mérique ou algébrique pointée par 
$B8 - $B9 et range le résultat en 
flottant aux adresses $9D à $A2. 

e $E752: convertit le résultat ci- 
dessus en entier à deux octets et 
le range en $50 - $51. 

e $F7D9 : recherche le tableau dont 
le nom est pointé par $B8 - $B9 
et range l'adresse de son nom 


la ligne dont le numéro est indi- 
qué dans $25 (position verticale 
du curseur) et stocké dans l’accu- à 
mulateur. Cette adresse est retour- 
née aux adresses $28 - $29, qui 


de nouvelles instructions sous Apple- 
soft, vous pouvez notamment vous 
reporter au Pom’s 16, dans lequel 
ces mécanismes sont présentés en 
détail à l’occasion de l'analyse du 


dans la zone de stockage des ta- 
bleaux aux adresses $9B et $9C. 

$D412 : génère les messages d’er- 
reur ou branche sur la routine 
ONERR GOTO si ce dernier est 


RUN. peuvent donc servir de base pour actif 
Le petit fichier CHRGET listé ci- un adressage indirect indexé par . 
après doit être chargé en mémoire Y. & 





Programme INIT16.S 





; 26 UO CMP #'U' ;:CDE "UPDATE" ? 
(Assembleur BigMac) 27 -BNE EO ;NON => ERREUR 
(RTS DIRECT LA 
1 ORG $9000 PROVOQUERA) 
2 BIT S$CO81 28 JMP D1 
3 BIT S$CO81 29 Ss2 STA $19 ; SAUVE LA CDE 
4 LDA #0 30 BIT $CO080 ; LECTURE MEV AUX. 
5 STA S$D000 31 LDA $D000 ; NOMBRE D'ECRANS 
6 BIT S$SCO81 ACTUELLEMENT 
7 CLC STOCKES 
8 JMP  $D88A 32 CMP  #S0C :12 ECRANS MAXI 
33 BCC 53 
Programme VID162.REM.S 34 EE || HR 
35 BIT $C ; LECTURE R 
(Assembleur BigMac) 36 JMP  S$D412 ; ROUTINE D'ERREUR 


DE L'APPLESOFT 





1 KXKKRXXEKE ERA XX KR À À KO XX À À À KE À É À À À À 37 s3 TAX 
2 * * 38 LDA #1 
3 * STOCKAGE D'ECRANS ET VARIABLES* 39 STA $6 :INITIALISE $6-$7 
4 * DANS LA MEMOIRE AUXILIAIRE //E* 40 LDA  #$D0 
5 * OU LA CARTE-LANGAGE II+ (16K) * 41 STA $7 ' 
6 * CODE = VID162 * 42 s5 CPX #0 
7. * x 43 BEQ S4 
8 KRKKKRKE RÉ KK K KE À À À XX KR À À À À K À À À À 44 S50 CLC s 
9 45 LDA $6 ; AJOUTE $3C0 PAR 
10 ORG $9000 ECRAN STOCKE 
11 CMP  #$5D ; CARACTERE "]J" ? 46 ADC  #$C0 
12 BEQ SO 47 STA $6 
13 CMP  #$3A :REPRISE CHRGET 48 LDA $7 
14 BCC sl 49 ADC #3 
15 EO RTS 50 STA $7 
16 S1 JMP $BE 51 DEX 
17 SO JSR SBl ;LIT CAR SUIVNT ] 52 BNE S50 
18 CMP #'s' :CDE "SAUVE" ? 53 S4 LDA #0 :$6-$7 = ADRESSE 
19 BEQ S2 DE STOCKAGE DE 
20 CMP #'R' ;:CDE "RECUPERE" ? L'ECRAN 
21 BNE DO 54 STA $25 ;= NO LIGNE ECRAN 
22 JMP RO 55 s9 BIT $CO81 :LECTURE ROM 
23 DO CMP #'D' ;CDE "DETRUIT" ? 56 BIT SCO81 ;PERMET ECRITURE 
24 BNE UO SUR MEV 
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59 S6 


74 S8 


76 S7 


81 S70 


86 RO 


87 


88 


89 


90 
91 


92 R3 
93 
94 R1 
95 
96 
97 


98 
99 
100 R2 
101 
102 
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JSR 


JSR 


JSR 


$FBCI ;: CALC ADRESSE 
BASE LIGNE 

#0 

($28),Y : LIT CARACTERE 
DANS LA LIGNE 

($6),Y ET LE STOCKE EN 
MEV AUX. 

#$528 :FIN DE LIGNE ? 

S6 

$25 :LIGNE SUIVANTE 

$25 

#$18 : DERNIERE LIGNE 
DEJA TRAITEE ? 

s7 

$6 

#$28 

$6 : PASSE À LA 
"LIGNE" SUIVANTE 
EN MEV AUX. 

s8 

$7 

$25 

s9 

$25 : REVIENT LIGNE 24 

$19 

#'U' 

S70 

R140 ;RETOUR SI UPDATE 

$co83 ; AUTORISE LECTURE 

$co83 ;ECRIT -> MEV AUX 

$D000 ;INC NB ECRAN 

$co81 ; ROM EN LECTURE 

$B1 ; RETOUR APPLESOFT 

$B1 ; POINTE $B8-$B9 
SUR CARACTERE 
SUIVANT |] 

$DEBE ;VERIFIE "," ET 
POINTE SUR OCTET 
SUIVANT 

$DD67 ;EVALUE FORMULE 
POINTEE PAR 
$B8-$B9 

$E752 ;LA CONVERTIT EN 
2 OCTETS ET LES 
RANGE EN $50-$51 

$51 

R1 :POIDS FORT DOIT 
ETRE À O 

#$535 ;"ILLEGAL QUANT." 

$D412 

$co80 : LECTURE MEV AUX. 

$DO00 

$50 

R2 ;NO ECRAN <= 
NOMBRE EN STOCK 

$co81 ; RETOUR ROM 

R3 

$co81 

$50 

#0 :NO ECRAN DOIT 





R4 


R6 


RS 


R12 


R9 


R16 


ETRE POSITIF 
R3 
$18 
$DEBE 
$F7D9 ; CHERCHE TABLEAU 
POINTE PAR B8-B9 


$9B 


$9c 
$9 __4$8-$9 = ADR DU 
NOM DU TABLEAU 


($8),Y 


#1 :DOIT ETRE A UNE 
SEULE DIMENSION 


$18 :$8-$9 = ADR 1ER 
ELEMENT 


#$D0 


#$cO 


#0 :$6-$7=ADR ECRAN 
EN MEV AUX. 


$19 : DRAPEAU POUR ":" 
ENTRE VARIABLES 


: LECTURE MEV AUX. 


:REMET LES OCTETS 
A L'ECRAN 


R7 :1ER DELIMITEUR 

XX0 :C'EST LE 2ND =>: 
AFFECTER LA 
VARIABLE 





D 
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155 XXO0 
156 
157 
158 
159 
160 


161 


162 Xx0 


163 
164 


165 


166 
167 
168 
169 X2 


170 
171 X4 


172 


178 X3 


188 Xx1 


.STY 


CPX 
BNE 
LDY 
TXA 
STA 


RTS 


STX 


SEC 
LDA 


SBC 


STA 


BCS 
DEC 
LDX 
LDY 
LDA 


STA 


$1A 
#0 
X0 
#0 


($8),Y 


$1B 


$6r 


$1B 


$6Fr 
X2 
$70 
#0 


#0 
BUFF, X 


($6F),Y 


$1B 


X3 
X4 


#0 
$1B 


($8),Y 


$6er 


($8),Y 


$70 


($8),Y 


$8 


; SAUVEGARDE INDEX 
: LONG CHAINE=0 ? 


; STOCKER SIMPLE- 
MENT LA LONGUEUR 
POUR L'ELEMENT 

; CONCERNE DU 
TABLEAU 

;: SAUVEGARDE LONG 
CHAINE 


; CALC ADR CHAINE 
EN RETIRANT 

; SA LONGUEUR DE 
L'ADRESSE 
POINTEE PAR 
;FRETOP ($6F-$70) 
= HAUT MEMOIRE 


; TRANSFERE LE 
CONTENU DE LA 
CHAINE A SON 

: ADRESSE DANS LA 
ZONE DE STOCKAGE 
DES CHAINES 


; CHAINE 
INTEGRALEMENT 
TRANSFEREE ? 


:MET LONG CHAINE 
DANS L'ELEMENT 


; DU TABLEAU 
CONCERNE 


: AINSI QUE 
L'ADRESSE DE LA 
CHAINE 
CORRESPONDANTE 


: POINTE SUR 
L'ELEMENT DU 
TABLEAU SUIVANT 


: REMET LE DRAPEAU 
DELIMITEUR À O0 


195 
196 
197 
198 


199 
200 


201 
202 
203 
204 
205 
206 
207 
208 


209 
210 
211 
212 


213 
214 
215 
216 
217 
218 
219 
220 


221 


222 
223 


224 
225 
226 


227 


228 


229 


230 


R7 


R8 


R11 


R10 


R14 


R140 


R15 


R13 


D1 





RTS 


$1A 
#0 
R8 
$19 


#528 


R9 
$25 
$25 
#$18 
R10 


$6 
#528 


$6 
R11 
$7 
$co81 


$25 
R12 
$co8l 
#0 
R13 
$25 
$1C 
$B7 


$1D 
$19 


R8 
$1D 
BUFF, X 


R8 
XX0O 


R14 


$19 


$B1l 
$SDEBE 
$DD67 
$E752 
$51 
D2 

R3 


; SIGNALE : 1ER 
DELIMITEUR EST 
TROUVE 


; POURSUIT 
AFFICHAGE ECRAN 


;: "LIGNE" SUIVANTE 
EN MEV AUX. 


:REMET LECTURE 
ROM POUR LE 
"JSR $FBCl" 


; RETOUR A 
L'APPLESOFT 
($B8-$B9 POINTE 
DEJA SUR 

;L'OCTET QUI SUIT 
LE NOM DU 
TABLEAU) 


; STOCKE BUFFER DE 
VARIABLES 

; ON EST APRES LE 
1ER DELIMITEUR 


; STOCKE UNE EVEN- 
TUELLE DERNIERE 
VARIABLE DONT 

LE DELIMITEUR DE 
FIN NE SERAIT 
PAS A L'ECRAN 

; STOCKE LA 
COMMANDE 
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à 


:$50 CONTIENT UN 
NUMERO D'ECRAN 
VALIDE 

; SAUF SI 0 


; GARDE NO ECRAN 


DEC NO POUR 
UTILISER LA MEME 
; PROCEDURE QUE 
POUR LA CDE "S" 


*RIEN À FAIRE SI 
UN SEUL ECRAN 


; SINON ALLER 


:ET RETOUR 
APPLESOFT 


:$6-$7 = ADR DU 
DERNIER ECRAN 


239 D2 BIT $CO080 
240 LDA $D000 
241 BIT $CO81 
242 TAX 

243 CMP $50 
244 BCS D3 
245 JMP R3 
246 D3 LDA $50 
247 BNE DA4 
248 JMP R3 
249 D4 STA $18 
250 LDA $19 
251 CMP #'U' 
252 BNE  DD4 
253 DEC $18 
254 LDA $18 
255 JMP S3 
256 DD4 CPX #1 
257 BNE D40 
258 BIT $C083 
DIMINUER LE NOMBRE D'ECRANS STOCKES 
259 BIT $C083 
260 JMP D99 
261 D40 DEX 

262 LDA #1 
263 STA $6 
264 LDA #$D0O 
265 STA $7 
266 D5 CPX #0 
267 BEQ D6 
268 D50 CLC 

269 LDA $6 
270 ADC #$C0 
271 STA $6 
272 LDA $7 
273 ADC #3 
274 STA $7 
275 DEX 

276 BNE D50 
277 D6 LDA $18 
278 TAX 

279 DEX 

280 LDA #1 
281 STA $8 
282 LDA  #$D0 
283 STA $9 
284 D7 CPX #0 
285 BEQ D8 
286 D70 CLC 

287 LDA $8 
288 ADC #$C0 
289 STA $8 
290 LDA $9 
291 ADC #3 
292 STA $9 
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293 
294 
295 D8 


296 
297 
298 


299 


300 
301 
302 
303 
304 


305 
306 
307 D9 


308 
309 
310 
311 
312 D10 
313 


314 
315 
316 
317 
318 D11 
319 
320 
321 
322 D12 


323 
324 
325 
326 
327 
328 D130 
SUIVANT 
329 
330 
331 D13 
332 
333 
334 
335 
336 D99 


337 
338 
339 
340 BUFF 


341 * 


DEX 
BNE 
CLC 


LDA 
ADC 
STA 


STA 


LDA 
ADC 
STA 
STA 
BIT 


BIT 
LDY 
LDA 


STA 
INC 
BNE 
INC 
LDA 
CMP 


BNE 
LDA 
CMP 
BEQ 
INC 
BNE 
INC 
BNE 
LDA 


CMP 
BNE 
LDA 
CMP 
BEQ 
INC 


BNE 
INC 
LDA 
STA 
LDA 
STA 
BNE 
DEC 


BIT 
JSR 
RTS 
EQU 


D70 


$8 
#$co 
$1A 


$1c 


$9 

#3 
$1B 
$1D 
$co83 


$co83 
#0 
($1C),Y 


($8),Y 
$8 

D10 

$9 

$9 

$1B 


D11 
$8 
$1A 
D12 
$1C 
D9 
$1D 
D9 
$1B 


$7 
D130 
$1A 
$6 
D99 
$1C 


D13 
$1D 
$1C 
$1A 
$1D 
$1B 
D9 
$D000 


$co81 
$B7 


$200 


:$8-9 = ADR ECRAN 
A DETRUIRE 


:$1A-1B=ADR ECRAN 
SUIVANT 

:$1C-$1D SERVIRA 
POUR LE DECALAGE 


:MEV AUX. 
EN LECT/ECRITURE 


;RECOPIE ECRAN 
SUIVANT À L'A- 
DRESSE DE CELUI 
;QUI LE PRECEDE 


; DECALAGE ECRAN 
COMPLET FINI ? 


;NON => CONTINUE 


DERNIER ECRAN 
STOCKE EST-IL 


MAINTENANT 
DECALE ? 


; NON => ECRAN 


DEC NBR ECRANS 
STOCKE 

:MET ROM EN LECT 
; RETOUR APPLESOFT 


; BUFFER D'ENTREE 
UTILISE ICI POUR 
: STOCKER 
TEMPORAIREMENT 
LES VARIABLES 
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otre 


nes 


40 FOR I = 1 TO 6:JR,I,V$: GET Z$: TEXT : HOME : FOR J 
FRprenURe TESTVIDI6 = 0 TO 10: PRINT V$(J): NEXT : GET Z$: NEXT 





” NE HS DSBLOAD V1: PRINT 60 JR,6.V$: FOR | = 0 TO 11: VTAB 2 * 14 1: HTAB 14: 

eo 1: PRINT "NOUVEAU : : GET Z$ 

50 FOR = 0 TO 10: PRINT "LIGNE NO "1" : DONNEE NO 70 :S: PRINT : PRINT CHR$ (4)/"RUN TESTS3VID16 

"LJ" ": PRINT : NEXT : RETURN 

100 FOR J = 1 TO 12: TEXT : HOME : GOSUB 50: GET Programme TEST3VID16 
Z$:]S: NEXT 

105 TEXT : HOME : GET Z$ 10 TEXT : HOME : DIM V$(11) 

110 FOR 1= 1 TO 12/JR.LV$: GET Z$: TEXT: HOME :FOR | 20 FOR1= 1 TO 7JRLV$: GET Z$: TEXT : HOME : FOR J 
J = 0 TO 10: PRINT V$(J): NEXT : GET Z$: NEXT = 0 TO 10: PRINT V$(J): NEXT : GET Z$: NEXT 

120 FOR 1 = 2 TO 12 STEP 2.JR.LVS: VTAB 24: HTAB 1: 30 JR,1,V$: VTAB 23: HTAB 1: PRINT "CET ECRAN VA 
PRINT “ECRAN "1" DEVIENT ECRAN "! - 1 /2:: GET ETRE RECOPIE SUR": PRINT "LES 6 AUTRES... 
Z$:]U, 1: NEXT 40 FOR 1 = 1 TO 7JU,I: NEXT : PRINT : PRINT CHRS 

130 FOR I = 1 TO 6:JD,I: NEXT (4)"RUN TESTAVID16 


140 PRINT : PRINT D$"RUN TEST2VID16 








Programme TEST4VID16 
Programme TEST2VID16 
10 TEXT : HOME : DIM V$(11) 


10 HIMEM: 9 * 4096 - 1 20 FOR I = 1 TO 7:JR.I,V$: GET Z$: TEXT : HOME : FOR J 
30 TEXT : HOME : DIM V$(10) = 0 TO 10: PRINT V$(J): NEXT : GET Z$: NEXT 


—————————— 


Indirection CHRGET 9070- F7 E6 25 A5 25 C9 18 FO 9190- AS 25 C9 18 FO 13 18 A5 
9078- OF 18 A5 06 69 28 85 06 9198- 06 69 28 85 06 90 02 E6 


9080- 90 02 E6 07 A5 25 DO D5 91A0- 07 2C 81 CO A5 25 4C 1C 
9088- C6 25 A5 19 C9 55 DO 03 91A8- 91 2C 81 CO EO 00 DO 16 
9090- 4C B4 91 2C 83 CO 2C 83 91B0- C6 25 A6 1C 20 B7 00 60 


O0BA- C9 3A BO 





À : 9098- CO EE 00 DO 2C 81 CO 4C  91B8- 85 1D A5 19 FO CB A5 1D 
Indirection INTER 90A0- B1 00 20 B1 00 20 BE DE  91C0- 9D 00 02 E8 DO C3 20 39 
90A8- 20 67 DD 20 52 E7 A5 51  91C8- 91 4C BO 91 85 19 20 BI 

0OBA- 4C 00 90 90B0- FO 05 A2 35 4C 12 D4 2C  91D0- 00 20 BE DE 20 67 DD 20 


90B8- 80 CO AD 00 DO C5 50 BO 91D8- 52 E7 A5 51 FO 03 4C B2 

# L L 90C0- 06 2C 81 CO 4C B2 90 2C  91E0- 90 2C 80 CO AD 00 DO 2C 
Récapitulation 90C8- 81 CO A5 50 C9 00 FO E2  91E8- 81 CO AA C5 50 BO 03 4C 
INIT16K 90D0- 85 18 20 BE DE 20 D9 F7  91F0- B2 90 A5 50 DO 03 4C B2 

90D8- A5 9B 85 08 A5 9C 85 09 91F8- 90 85 18 A5 19 C9 55 DO 

9000- 2C 81 CO 2C 81 CO A9 00 90EO0- AO 04 B1 08 C9 01 DO CA 9200- 07 C6 18 AS 18 4C 3C 90 
9008- 8D 00 DO 2C 81 CO 18 4C 9IO0E8- 18 A9 07 65 08 85 08 90 9208- EO O1 DO 09 2C 83 CO 2c 


9010- 8A D8 FF 90F0- 02 E6 09 A6 18 CA A9 O1 9210- 83 CO 4C AS 92 CA A9 O1 
90F8- 85 06 A9 DO 85 07 EO 00 9218- 85 06 A9 DO 85 07 EO 00 


, : u 9100- FO 11 18 A5 06 69 CO 85 9220- FO 10 18 AS 06 69 CO 85 
Récapitulation 9108- 06 A5 07 69 03 85 07 CA  9228- 06 A5 07 69 03 85 07 CA 
VID162 9110- 4C FE 90 A9 00 86 1C 85 9230- DO FO A5 18 AA CA A9 O1 

9118- 19 AA 85 25 20 C1 FB 2C 9238- 85 08 A9 DO 85 09 EO 00 

9000- C9 5D FO 08 C9 3A 90 O1 9120- 80 CO AO 00 B1 06 91 28 9240- FO 10 18 A5 08 69 CO 85 
9008- 60 4C BE 00 20 B1 00 C9 9128- c9 BA FO 03 4C B8 91 A5 9248- 08 A5 09 69 03 85 09 CA 
9010- 53 FO 15 C9 52 DO 03 4c 9130- 19 FO 54 20 39 91 4C 74 9250- DO FO 18 A5 08 69 cO 85 
9018- A2 90 C9 44 DO 03 4C cc 9138- 91 84 1A EO 00 DO 06 AO 9258- 1A 85 1C A5 09 69 03 85 
9020- 91 C9 55 DO E3 4C CC 91 9140- 00 8A 91 08 60 86 1B 38 9260- 1B 85 1D 2C 83 CO 2C 83 
9028- 85 19 2C 80 CO AD 00 DO 9148- AS 6F E5 1B 85 6F BO 02 9268- CO AO 00 B1l 1C 91 08 E6 
9030- C9 OC 90 08 A2 4D 2C 81 9150- C6 70 A2 00 AO 00 BD 00 9270- 08 DO 02 E6 09 A5 09 C5 
9038- CO 4C 12 D4 AA A9 01 85 9158- 02 91 6F E8 E4 1B FO 03 9278- 1B DO 06 A5 08 C5 1A FO 
9040- 06 A9 DO 85 07 EO 00 FO 9160- C8 DO F3 AO 00 A5 1B 91 9280- 08 E6 1C DO E6 E6 1D DO 
9048- 10 18 A5 06 69 CO 85 06 9168- 08 C8 AS 6F 91 08 C8 A5 9288- E2 A5 1B C5 07 DO 06 A5 
9050- A5 07 69 03 85 07 CA DO 9170- 70 91 08 60 18 A5 08 69 9290- 1A C5 06 FO 10 E6 1C DO 
9058- FO A9 00 85 25 2C 81 cO 9178- 03 85 08 90 02 E6 09 C6 9298- 02 E6 1D A5 1C 85 1A A5 
9060- 2C 81 CO 20 C1 FB AO 00 9180- 19 A4 1A A2 00 FO O2 E6 92A0- 1D 85 1B DO C6 CE 00 DO 
9068- B1 28 91 06 C8 CO 28 DO 9188- 19 C8 CO 28 DO 96 E6 25 92A8- 2C 81 CO 20 B7 00 60 00 
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Nous allons parler, ici, d'intelligence 
artificielle. La première chose à faire, 
puisque nous nous supposons intelli- 
gents, est de définir ce que ‘’parler” 
et intelligence” veulent dire. 

Parler” ici signifie ‘’communiquer 
une information”. On transmet une 
information à travers un système de 
communication. Un système de 
communication est composé de trois 
éléments: un émetteur, le moyen 
utilisé et un récepteur. Si pour une 
raison quelconque le récepteur reçoit 
l'information déformée, on peut dire 
qu'il ny à pas eu communication, 
donc qu'on n'a pas parlé”. Par 
exemple, si vous utilisez la parole 
comme moyen et si vous parlez au- 
vergnat à un chinois, il ne ”’recevra” 
pas, donc vous avez émis des sons, 
mais vous n'avez pas ‘parlé” 
(d’après la définition précédente). La 
plupart des problèmes d’incompré- 
hension (information déformée) vien- 
nent de l’utilisation des mots abs- 
traits. Ceux-ci sont des commodités 
du langage qui réunissent un ensem- 
ble d’actions ou de qualités. Rapidité 
contient” une caractéristique de dé- 
placement, blancheur réunit une des 
caractéristiques des objets blancs. On 
voit donc, qu’au delà du mot abs- 
trait, il y a quelque chose de tout à 
fait réel, de physique et de bien défi- 
nissable. 


Dans tous discours, autres que des 
propos de bistrot, et particulièrement 
dans des conversations scientifiques, 
les mots abstraits doivent être définis 
au préalable (vous allez rire, mais il 
est parfois bien utile de définir même 
les mots non abstraits). 

Ce préambule n'est sûrement pas 
inutile, car nous abordons quelque 
chose de plus complexe : définir des 
mots abstraits, dont tout le monde 
est convaincu de bien connaître la si- 
gnification. 

Commençons par  ‘Intelligence”, 
nous verrons plus loin le mot 
Amour”. 


L'évolution simulée 


Dans le livre de Fogel, Owens et 
Walsh (voir bibliographie), on trouve 
une méthode pour simuler sur un or- 
dinateur, ce que nous appellons l'in- 
telligence. Leur premier soin a été de 
définir l'intelligence, c’est la moindre 
des choses si on veut savoir 
comment faire fonctionner le modèle. 
"L'intelligence est la capacité de 
toute entité capable de décision, d’at- 
teindre un succès total ou partiel en 
poursuivant une grande quantité de 
buts dans des circonstances très diffé- 
rentes”. Nous voyons déjà qu’il faut 
faire une distinction entre la connais- 
sance et l'intelligence. Celui dont la 
culture et les connaissances sont 
étendues n'est pas automatiquement 
intelligent, par contre, celui qui sait 
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L'intelligence Artificielle 


utiliser son savoir pour atteindre un 
but l’est. 

Fogel et ses amis ont voulu simuler 
un comportement intelligent sur une 
machine et ont défini son intelli- 
gence, donc l'intelligence artificielle, 
comme la manière d'atteindre un but 
par un moyen auquel l’homme n’au- 
rait pas pensé. Ils ont pris comme 
point de départ le phénomène de 
l'évolution de la vie sur terre et ils 
ont rentré ce schéma de fonctionne- 
ment dans l’ordinateur. Ils ont établi 
un modèle qui est la représentation 
mathématique de l'organisme à étu- 
dier. Le comportement de ce modèle 
simule une caractéristique essentielle 
du comportement d’un homme dans 
une situation précise. Ce qui est im- 
portant, est que ce modèle s’auto- 
modifie, donc évolue, pour obtenir 


Thierry Haurie 


Pom's vous propose 


Il est inutile de présenté le jeu de dominos; celui-ci bénéficie d'un 
graphisme très soigné (en couleur si vous disposez d'une carte 
"Chat Mauve") et les messages transmis par le programme sont, 
au choix, en Français, en Italien, en Allemand ou en Anglais. 


Guido Bettiol 


une sortie qui corresponde au but. 
La place manque ici pour en parler 
plus longuement, ces explications 
sont du type ‘vite fait sur le gaz” 
(voir leur livre). Avec cette approche 
on peut vraiment parler d'intelli- 
gence. 


Les systèmes experts 


Un système expert est un pro- 
gramme qui permet, à une grande 
variété de gens, d’avoir accès à des 
informations de haut niveau. Un sys- 
tème expert ne rendra pas intelligent 
un ’crétin”, ni ne donnera une for- 
mation à celui qui n’est pas un spé- 
cialiste, mais il permettra à quelqu'un 
qui possède déjà une certaine 
connaissance de la matière traitée, de 
résoudre des problèmes qui auraient 
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demandé la consultation d’un grand 
nombre de spécialistes. Il trouvera 
peut-être, même, une solution qu’un 
groupe de spécialistes n'aurait pas 
trouvée, car une seule entité (l'ordi- 
nateur) traite les données de tous les 
spécialistes. 


Un système expert est un logiciel di- 
visé en deux parties : la base de don- 
nées et le moteur d’inférence. 

Tout le monde sait ce qu'est une 
base de données, mais détruisons 
tout de suite un mythe : les bases de 
données ne sont pas intelligentes, 
elles sont tout à fait stupides, mais la 
masse de données qu’elles contien- 
nent est précieuse. Reste à les utiliser 
intelligemment”. Le moteur d'infé- 
rence (d’après le Larousse, l’infé- 
rence est une ‘Opération intellec- 
tuelle par laquelle on passe d’une 
vérité à une autre vérité, jugée telle 
en raison de son lien avec la pre- 
mière”) est donc un programme qui 
pose une question et reçoit une ré- 
ponse. Il va alors chercher la réponse 
dans la base de données, en utilisant 
les règles qu'il possède. 


Un système expert est-il intelligent ? 
En quelque sorte, oui. Un homme 
qui dispose des mêmes données ap- 
pliquera théoriquement le même rai- 
sonnement, mais en pratique il utili- 
sera des simplifications dues à ses 
propr?s connaissances et à son 
conditionnement. La force des ma- 
chines est la stupidité bornée de la 
démarche systématique, comme la 
force de la police est la routine ! 


Que peut-on faire avec un Apple 
dans cette galère ? Compte tenu de 
la faible capacité mémoire, due à 
l’adressage limité du microprocesseur 
8 bits, on ne peut pas aller très loin. 
La mémoire virtuelle augmente tout 
de même les possibilités. 


Quelle que soit la complexité de 
leurs règles, une chose est commune 
aux systèmes experts : ils ne peuvent 
pas modifier eux-mêmes leurs règles 
en fonction de l’évolution des ques- 
tions / réponses. Or la première né- 
cessité d’un système qui se veut in- 
telligent est de pouvoir modifier sa 
structure interne pour simuler le pro- 
cessus d'apprentissage. 

Sur Apple on peut utiliser un sys- 
tème expert, commercialisé par MVP 
(voir la bibliographie), écrit en Forth. 
Il est fourni avec le source, est totale- 
ment transparent, peut être modifié 
(bon courage...) et enfin il est nette- 
ment plus rapide que le Basic. 


Un exemple pratique 


Les langages du type LISP sont bien 
adaptés aux problèmes d'intelligence 
artificielle, cependant, il faut pro- 
grammer le moteur d’inférence. 

Le langage Prolog a un énorme 


avantage : il EST un moteur d'infé-. 


rence. Nous parlerons, ici, de micro- 
Prolog, qui est anglais et assez pro- 
che du standard d'Edimbourg. Il est 
sous CP/M et nécessite une carte 


Z80. 


Passons maintenant à un exercice 
périlleux en revenant au problème 
des mots abstraits. Nous allons bâtir 
un programme à travers lequel on 
définira le mot ‘’Amour”. Bien que 
tout le monde soit convaincu d'en 
connaître la signification, il est certain 
que la base de données ’’concrètes”, 
formée de mots non abstraits que ce 
programme construira, étonnera plus 
d’un d’entre nous. 

Le programme demande de définir 
l'amour. On peut répondre avec un 
mot abstrait ou avec un mot non 
abstrait. Si le mot est abstrait on en 
demande la définition, qui doit être 
un mot non abstrait On demande 
ensuite d'associer ce dernier mot à 
une des deux sources” possibles : 
SEX et BIO. Ainsi, on a construit 
deux tables : une avec un mot non 
abstrait associé à SEX ou BIO, l’au- 
tre avec un mot abstrait, qui à son 
tour est défini par un mot non abs- 
trait, le tout associé à SEX ou BIO. 
On pourra ensuite lister ces tables et 
les étudier. L'interprétation des résul- 
tats est encore un autre problème, et 
elle n’est pas envisagée ici. 


On lance ‘’question.” et la réponse 
est affectée à la variable X. 

Ensuite ”tri X” est appelé qui à son 
tour appelle ‘abs X” (comme s'il 
s'agissait de subroutines) lequel véri- 
fie si le mot entré fait partie de l’en- 
semble de Faits ’abstrait ….” (ici on a 
rentré seulement très peu de Faits, 
mais cet ensemble devrait en réalité 
contenir TOUS les mots ou expres- 
sions abstraites avec lesquels on ris- 
que de définir ‘’amour”). 

Avec les résultats de ce dernier test, 
on revient en arrière. Si le mot entré 
était abstrait, on suit la branche 
then”, donc ‘’definir-abs X”, qui de- 
mande un mot non abstrait On 
passe ensuite à ’analogie X Y”’ pour 
l'association avec SEX ou BIO et on 
augmente la base de données d’un 
nouveau Fait. Ces Faits sont réunis 
par la relation love”, alors que les 
premières définitions sont réunies par 
la relation ‘’amour”. 


Le listing 3 illustre le fonctionement 
de ce programme. À noter que la 
première réponse, ‘a coté de ses 
pompes”, bien que composée de 
mots non abstraits, est une expres- 
sion abstraite et n'aurait pas du être 
rentrée. 


Le listing 4 est la liste des nouveaux 
Faits que l’on vient de créer. Ils sont 
réunis sous les relations ‘’amour” et 
“love”. 


Voilà, notre ordinateur nous a permis 
de voir comment définir un mot abs- 


trait sans équivoque et d’une ma- 
nière reproductible. Ceci est certaine- 
ment le premier pas à faire pour wne 
approche de l'intelligence artificielle 
qui se propose d'explorer le cerveau 
humain et sa façon de raisonner. Le 
but, à long terme, est de reproduire 
ce fonctionnement. 


Jusqu'où peut aller l'Apple avec 
micro-Prolog ? Le problème est tou- 
jours le même : la taille mémoire dis- 
ponible et la vitesse. Cependant, on 
peut aller assez loin, puisqu'on peut 
utiliser la mémoire virtuelle pour sto- 
cker les données. 


Bibliographie 


Les langages 


Système expert en Forth distribué 
par MVP (Mountain View Press), PO 
Box 4656, Mountain View, CA 
94040, USA. Une disquette pour 
Apple et un manuel de 60 pages 
pour $100. 

Prologll est distribué par la Société 
Prologla, 278 rue St. Pierre, 13005 
Marseille, tél. (91) 41 48 49. Trois 
disquettes et le manuel, 2965 Frs 
TTC 


micro-Prolog est distribué par LPA 
(Logic Programming Associated 
Ltd.), 10 Burntwood Close, London 
SW18 3JU, Grande Bretagne. Une 
disquette sous CP/M Z80 pour 
Apple, un manuel de 250 pages et le 
un livre : micro-Prolog, Programming 
in Logic, Clark et McCabe, le tout 
pour $1965. 


Les livres 


Introduction aux systèmes ex- 
perts, Michel Gondran, Evrolles. Il 
donne une vue d'ensemble du sujet 
et possède une belle bibliographie. 
Artificial intelligence through si- 
mulated evolution, Fogel, Owens 
et Walsh, John Wiley and Sons, 
1966. Un livre passionnant de ‘haut 
niveau”. 
Artificial intelligence : an evolu- 
tionnary idea, par Michael Wimble, 
parts 1 et 2, BYTE, mai et Juin 
1977. Organigramme d'une étude à 
partir du livre Artificial Intelligence... 
de Fogel et al, cité ci-dessus. Cet arti- 
cle est très intéressant. Il n'est sans 
doute pas inutile de citer la conclu- 
sion de Wimble : D'après mon ex- 
périence personnelle : n’exposez pas 
cette technique à n'importe qui et 
n'importe quand. Beaucoup de gens 
ont peur des ordinateurs comme ils 
ont peur de tout ce qu'ils ne 
comprennent pas, et leur enthou- 
siasme n'est peut-être pas égal au 
vôtre” (c'était en 77); les mentalités 
ont peut-être évoluées, mais ce n’est 
pas si sûr que ça ! 
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Listing 1 

Structuration de la recherche d'une définition de 
mot abstrait. On admet au départ que la notion 
"Amour" est liée en dernier lieu aux notions de 
"sexe" et "biologique", dont la définition est donnée. 
(Le travail a été effectué sur ThinkTank). 


DEMANDER DEFINITION 
Comparer le mot demandé ; la table des mots 
abstraits. 
MOT NON-ABSTRAIT 
Demander d'associer ce nom ; sex-bio. 
MOT ABSTRAIT 
Demander de définir le mot abstrait avec 
un mot non-abstrait. 
Ensuite demander de l'associer ; sex-bio. 
ASSOCIATION A SEX-BIO 
Deux grandes classes: sex et bio. 
Bio est incontrôlable. 
Sex est contrôlable. 
DEFINITIONS 
BIO: Bio est le côté biologique du 
sexe. 
Il "est", c'est tout, il est là. On se 
limite ; constater l'existence de la 
pulsion sexuelle. 
SEX: Sex est le côté conscient du 
sexe. On sait qu'il existe et on le 
subit, mais on peut le contrôler, 
dans une certaine mesure (avec 
une motivation suffisante). 


ON A 2 TABLES ASSOCIEES A SEX-BIO 
Non-abstrait: (amour non-a) 
Abstrait: (love abs (non-a sex-bio)) 
BASE DE DEFINITIONS 
On dispose d'une base de données qui 
sont les définitions du mot "amour". 





Listing 2 

Programme écrit en micro-Prolog. La relation 
"abstrait" doit servir de référence pour détecter les 
mots ou expressions abstraites avec lesquelles on 
peut définir le mot “amour”. La relation "mesure" 
matérialise les deux Faits “sex” et "bio". 


((abs X) 
(abstrait X) 
(EQX Y)) 
((associer X Y Z) 
(P “ (o/n? ") 
(Rx) 
(IF (EQ x o) ((ADDCL ((love X (Y Z))))) 
((analogie X Y)))) 
((mesure sex)) 
((mesure bio)) 
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((analogie X Y) 
(mesure 2) 
(P Y “peut-il se rapprocher de " Z) 
(associer X Y Z)) 
((tri X) 
(IF (abs X) ((definir-abs X)) ((ADDCL ((amour 
x)))))) 
((question .) 
(P "Qu'est-ce que l'amour? ") 
(Rx) 
(tri X)) 
((définir-abs X) 
(PP X est un mot abstrait. Il faut le définir.) 
(P “Utilisez un mot non abstrait: ") 
(RY) 
(analogie X Y)) 
((abstrait tendresse)) 
((abstrait extase)) 
((abstrait passion)) 
((abstrait bonheur)) 





LISTING 3 


Dump écran du programme pendant son 


fonctionnement. (Voir texte). 


question. 
Qu'est-ce que l'amour? .extase 
extase est un mot abstrait. Il faut le définir. 
Utilisez un mot non abstrait:. (à côté de ses 
pompes) 
(à côté de ses pompes peut-il se rapprocher de sex 
(o/n) ?. 0 


question. 
Qu'est-ce que l'amour? passion 
passion est un mot abstrait. Il faut le définir. 
Utilisez un mot non abstrait:. tachycardie 
tachycardie peut-il se rapprocher de sex (0/n)? .n 
tachycardie peut-il se rapprocher de bio (o/n)? .o 


question. 
Qu'est-ce que l'amour? .sexe 





Listing 4 
La trace du programme. On peut y suivre le travail 
effectué par le moteur d'inférence. 


((love extase ((à côté de ses pompes) sex))) 
((love passion (tachycardie bio))) 
((amour sexe)) 
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Où est la souris ? 


Marianne Sutz 


Dans un programme Basic, détermi- 
ner la présence, ou la non présence, 
de la souris dans une zone donnée 
conduit invariablement à des séries 
de tests aussi peu rapides qu'inélé- 
gants. Pour palier cela, nous vous 
proposons une routine en langage 
machine d'emploi aisé. 


Utilisation de la routine 


Il faut tout d’abord implanter la rou- 
tine en mémoire (dans un tableau de 
variables entières). Pour cela, vous 
pouvez employer la méthode qui 
vous convient le mieux : 

e code objet sous forme de “Data” 
comme dans l'exemple ci-joint; 

e code objet sous la forme d’une 
chaîne de caractères, comme pour 
les routines "BSAVÉ et BLOAD” 
du numéro 17 de Pom's; 

e chargement direct en mémoire 
avec la routine ‘’BLOAD”, à 
condition d’avoir préalablement 
transformé le code objet en un fi- 
chier binaire. Le petit programme 
suivant se charge de cette tâche : 


DEFINT A-Z 

DIM C(19) 

DATA 0,0,0,&h4E56,0,&h487A 
DATA &hFFF6,&hA972,&h4267 
DATA &h47FA,&hFFEE,&h2F13 
DATA &h486E,8,&hAB8AD 
DATA &h47FA,&hFFE0,&h369F 
DATA &h4E5E,&h4E75 


FOR 1=0 TO 19:READ C(I):NEXT 
OPEN"O",1,"Nom de fichier” 
AI=VARPTR(C(0)) 

FOR 1-0 TO 39 
PRINT#1,CHR$(PEEK(A!+l)); 
NEXT 

CLOSE 


Vous pouvez ensuite appeler la rou- 
tine en spécifiant le quatrième élé- 
ment du tableau de variables comme 
adresse de base : 

Adresse! = VARPT Fe (Tableau%(3)) 
pour OPTION BASE 

Adresse! = VARPTR (Tableau %(4)) 
pour OPTION BASE 

La pile étant utilisée Fr tampon, 
il faut passer les paramètres (coor- 
données du rectangle) de manière in- 
habituelle : d'abord X2, suivi de Y2, 
X1 et enfin Y1. Ainsi un appel de la 
routine prend la forme: Adresse! 
X2%, Y2%, X1%, Y1% ou, avec la 
version 1.0 du Basic Microsoft, 
CALL Adresse! (X2%, Y2%, X1%, 
Y1%). Les arguments doivent abso- 
lument être des variables entières ou 
des expressions résultant en des va- 
leurs inférieures ou égales à 32767 
(valeur maximale possible sur 16 bits 
en complément à deux). Tout autre 
type d’argument provoquerait un dé- 
calage dans la pile, suivi d'effets plus 
ou moins imprévisibles. 


Au retour, le premier élément du ta- 
bleau de variables entières contient 
un drapeau indiquant si le curseur se 
trouve (ou ne se trouve pas) dans le 


AE) 
fl 


rectangle donné, et ce quelle que soit 
la position du bouton de la souris : 


Tableau%(0) = &h0100 si oui; 
Tableau%(0) = &h0000 si non. 


Exemple d'utilisation 


Le petit programme Basic proposé 
avec cet article illustre une des appli- 
cations possibles de la routine. On 
affiche deux rectangles (on pourrait 
très bien s’en passer, il s’agit simple- 
ment de visualiser les zones) puis 
nous allons voir si le curseur se 
trouve dans l’un d’eux. On initialise 
le curseur type ‘’Multiplan” si l’on est 
dans le rectangle de gauche, le cur- 
seur en forme de montre si l’on est 
dans le rectangle de droite. Dans le 
cas où nous nous trouvons dans 
aucun des deux rectangles, on re- 
prend le curseur standard en forme 
de flèche. Vous pourrez remarquer 
que le programme arrive à suivre” 
des déplacements très rapides de la 
souris, ce qui ne serait pas le cas 
avec des tests du type : 


N%=MOUSE (0) 

X%=MOUSE(1) 

Y%=MOUSE(2) 

IF X2>249 AND X%<451 AND 
Y%>49 AND Y%<201 THEN... 


La routine employée pour changer 
rapidement la forme du curseur est 
reprise du numéro précédent de 
Pom's; nous vous proposons donc 
de vous y reporter pour de plus 
amples commentaires. 





Source de la routine “Souris/rectangle" 


0000 .Trap _GetMouse $A972 ; _PtinRect retourne $0100 au sommet de la pile si la souris 
0000 .Trap _PtinRect  $AB8AD ; se trouve à l'intérieur du rectangle donné, ou $0000 dans le 
0000 ; cas contraire. 

0000 0000 Drapeau DC 0 ; 2 octets pour passer au Basic le résultat du test. 

0002 

0002 0000 0000 Position  DC.L 0 ; 4 octets pour stockage position de la souris (retournée 
0006 ; par _Getmouse). 

0006 4E56 0000 LINK A6,#0 : A6 contient l'adresse du sommet de la pile. 

000A 487AFFF6 PEA Position ; Empile l'adresse du tampon de 4 octets "Position'. 

000E A972 _GetMouse : Retourne les coordonnées de la souris dans ‘Position’. 
0010 4267 CLR -(SP) ; 2 octets au sommet de la pile pour le résultat du test. 

0012 47FAFFEE LEA Position, A3 ; L'adresse du tampon ‘Position’ est placée dans A6. 

0016 2F13 MOVE.L (A3),-(SP) _ ; Empile le contenu du tampon ‘Position’. 

0018 486E 0008 PEA 8(A6) ; Empile l'adresse des coordonnées du rectangle (placée dans 
001C A8AD _PtinRect ; la pile depuis le Basic). 

001E 47FAFFEO LEA Drapeau,A3 ; L'adresse du tampon ‘Drapeau’ est placée dans A3. 

0022 369F MOVE (SP}+,(A3)_ ; Dépile le résultat du test et le place dans ‘Drapeau, qui 
0024 4E5E UNLK A6 ; correspond à l'élément 0 du tableau de variables entières. 
0026 4E75 RTS : Retour au Basic. 
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ea Exemple d'utilisation de la 
eo 1] routine “souris/rectangle" 


SSS 

DIM C(19),D(10):Dr=0:DrC=0:B!=0 

" Data pour routine "Souris/rectangle” | Recevez gratu temen 
DATA 0,0,0,&h4E56,0,&h487A,&hFFF6,&hA972,&h4267 le] 
DATA &h47FA,&hFFEE,&h2F13,&h486E,8,&hA8AD le Ft û du journal 
DATA &h47FA,&hFFE0,&h369F,&h4E5E,&h4E75 
" Data pour changement de curseur (voir Pom's 18) | du Macintosh 
DATA &h4E56,0,&h42A7,&h3F2E,8,&hA9B9,&h2057 i 
DATA &h2E90,&hA851,&h4E5E,&h4E75 
‘Implantation des routines en mémoire 
FOR 1-0 TO 19:READ C{I):NEXT | 
FOR 1=0 TO 10:READ D(I):NEXT 
" Pour visualiser les rectangles | 
LINE(50,50)-(200,200),,B 
LINE(250,50)-(450,200),,B Î 
"Adresses des points d'entrée dans les routines 
Al=VARPTR(c(3)):'routine "souris/rectangle” i 





BI=VARPTR(d(0)):'routine "curseurs" 

Boucle: 

Dr=0 

"1 dans Dr si la souris est dans le rectangle de gauche 
"2 dans Dr si la souris est dans le rectangle de droite 
A! 200,200,50,50:1F C(0) THEN Dr=1 

A! 450,200,250,50:1F C(0) THEN Dr=2 

‘Si Dr=Dre, on a pas changé de zone Joindre 
IF Dr=Drc THEN Boucle 5 Fen 
Drc=Dr: ON Dr GOTO ID3,ID4 h timbres 
" Si la souris ne se trouve pas dans un rectangle (Dr=0), Qres ) 
"le curseur en forme de flèche est utilisé. | PRO 


INITCURSOR:GOTO Boucle Icônes : 135 bis, rue du Fg de Roubaix 
 Curseur type "Multiplan” si dans rectangle de gauche | 59800 Lille - Tél. 20.06.30.37 


BI 3:GOTO Boucle 

" Curseur en forme de montre si rectangle de droite 
ID4: 

B! 4:GOTO Boucle 


EU 
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(Disquette Macintosh 
14/15/16 


Cette disquette regroupe les programmes 
Basic publiés dans les numéros 14, 15 et 
16 de Pom's ("Editeur”, “Mac/Apple ][", 
"Paint/Basic", "Paint/Start", et d'autres 
programmes "exemples" employés pour 
l'illustration des articles publiés dans ces 
numéros). Vous y trouverez aussi les 
polices "Los Angeles", "Caïro", "Mos 
Eisley", "Hollywood" et “Manhattan”. 
Enfin, les programmes "Localizer" 
(configuration du clavier AZERTY pour la 
France ou un autre pays) et "Copie de 
‘| disque", qui autorise des copies de disquettes 

avec un seul lecteur sur un Mac 128K0, en 
seulement quatre passages. 
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Lucy : un accessoire de bureau 


Jean-Luc Bazanegue 


Ici commence une série d'accessoires 
de bureau destinés à rendre la vie 
des utilisateurs du Macintosh un peu 
plus facile. Le premier permet de sa- 
voir quelles polices sont disponibles 
sur la disquette d’amorçage, et ce 
sans avoir à charger une application. 
De même, lors de l'emploi d’un logi- 
ciel comme MacWrite, Word, etc... il 
n’est pas particulièrement aisé de sa- 
voir dans quelle police se trouve tel 
caractère spécial; une option de l’ac- 
cessoire autorise une visualisation de 
toute la police. 


Ceux d’entre-vous qui désirent pro- 
grammer le Macintosh en assembleur 
trouveront dans le source de nom- 
breux renseignements sur les fonc- 
tions classiques de l'appareil, à sa- 
voir : 


Traitement de texte 


L'accessoire utilise pratiquement tout 
ce que l’on peut trouver dans un 


traitement de texte : insertions de ca- . 


ractères ou de chaînes, visualisation 
du point d'insertion (petite barre cli- 
gnotante), sélection normale ou éten- 
due (avec ”’Majuscule-click”), sélec- 
tion par programme (sans inter 
vention de l'utilisateur), couper, co- 
pier, coller, effacer et, enfin, défile- 
ment vertical du texte en fonction de 
la hauteur des caractères. A noter 
que l'accessoire ne supporte pas - du 
moins pas encore - les ’’couper, co- 
pier, coller” vers ou depuis une ap- 
plication. 


Fenêtres 


Le listing montre comment une fené- 
tre est créée et mise à jour en cas 
d’effacement partiel ou total suite à 
un passage au second plan, ou en- 
core à un positionnement hors des li- 
mites de l'écran. 


Contrôles 


Nous mettons ici en oeuvre un bou- 
ton standard, un bouton type 
radio”, des cases de contrôle et 
enfin des barres de défilement. Ces 
dernières sont un peu plus 
complexes à utiliser que les contrôles 
précédents, et nous pensons que le 
source éclaircit certains points portant 
sur la gestion de ces fonctions essen- 
tielles. 


Fonctions diverses 


Nous employons aussi diverses routi- 
nes liées aux polices de caractères, à 
la souris, à l'affichage de dessins, à la 
conversion de nombres en chaînes, 
etc. Cet accessoire sans prétention 
représente ainsi un concentré de ce 
que l’on peut trouver dans une appli- 
cation plus ambitieuse. 

Faute de place, nous n'avons pas pu 
joindre au listing toutes les remar- 
ques nécessaires à la bonne compré- 
hension du système. En revanche, 
pour ceux qui veulent en savoir plus, 
la disquette Mac 19 comporte, outre 
l'accessoire en question (que vous 
pourrez installer sur d’autres disquet- 
tes avec ‘’Font/DA Mover”), le même 
source mais cette fois commenté 
point par point. Celui-ci peut bien 
sûr être assemblé ou consulté avec 
l'éditeur du système de développe- 
ment 68000, mais peut aussi être 
chargé depuis ”’DiskWrite”. 


Voici pour ce premier accessoire, 
mais nous avons déjà plusieurs idées 
en tête. Par exemple : ne vous est-il 
jamais arrivé de vous dire, lorsque le 
Mac vous transmet un message du 
type ‘La disquette est presque satu- 
rée..”, qu'il serait pratique de pou- 
voir détruire ou protéger un fichier 
sans quitter l’application en cours ? 
Enfin, vous désirez peut être savoir 
pourquoi nous avons baptisé la 
chose Lucy in the Sky with Dia- 
monds”. Eh bien... pourquoi pas ? 


Relations entre 
accessoires de bureau et 
applications 


Un accessoire de bureau peut être 
considéré comme une ‘’mini-applica- 
tion” capable de fonctionner en pa- 
rallèle avec l'application en cours. 
Pour que ceci puisse se faire, l’appli- 
cation doit suivre des règles précises. 


Tout d’abord, l'application doit affi- 
cher le menu “Pomme” afin de per- 
mettre à l'utilisateur l'appel d’un ac- 
cessoire. Elle doit aussi comporter le 
menu Edition”, avec les comman- 
des Couper, Copier, Coller, Effa- 
cer”, en prévision d'éventuels acces- 
soires utilisant ces fonctions. Un 
accessoire de bureau peut avoir son 





[3 
ei 


@) 


propre menu ; une application doit 
donc réserver, dans la barre des 
menus, la place pour un menu sup- 
plémentaire (si l’on regarde un pro- 
gramme comme MacDraw, on 
s'aperçoit que la règle n’est pas tou- 
jours respectée !). 

Pendant le déroulement de l’applica- 
tion, et si l'utilisateur choisit un ac- 
cessoire dans le menu Pomme”, 
l'application doit se charger de l’ou- 
verture de l'accessoire. Lorsque l’ac- 
cessoire est ouvert, à chaque fois que 
l'utilisateur appuie sur le bouton de 
la souris, l'application doit déterminer 
si l’action est effectuée dans l’acces- 
soire, auquel cas elle doit lui trans- 
mettre l'événement par l'intermé- 
diaire d’une routine du système. Cet 
événement sera ensuite traité par 
l'accessoire lui-même. Si plusieurs 
accessoires sont présents au même 
moment sur le bureau, le principe est 
le même, l'événement étant simple- 
ment dirigé vers l'accessoire 
concerné. Lorsque l'utilisateur passe 
d’une fenêtre de l'application à la fe- 
nêtre d’un accessoire, l'application 
doit rendre invalides les articles des 
menus qui lui sont propres et rendre 
valides les articles ”’Couper, Copier, 
Coller et Effacer” du menu ‘Edi- 
tion”. L'inverse doit se produire au 
moment où l’utilisateur revient à l’ap- 
plication (l’état du menu Edition” 
au retour d’un accessoire de bureau 
est déterminé par l'application). 


La fermeture de l'accessoire peut 
s'effectuer de différentes façons : 


e si l’article Fermer” est disponible 
dans un menu ‘Fichier”, et que 
l'utilisateur choisit cet article au 
moment où l'accessoire est actif, 
l'application doit se charger de la 
fermeture de l'accessoire ; si l’ac- 
cessoire comporte une case de fer- 
meture, et que l'utilisateur ‘’cli- 
que” sur cette case, ie gestionnaire 
du bureau (une partie du système 
d'exploitation du Mac) se charge 
de la fermeture; 

e si l'utilisateur quitte l'application 
en cours, le ou les accessoires sont 
automatiquement fermés par le 
système; 

e enfin, un accessoire peut très bien 
se fermer lui-même. 
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Lucy.Asm nes: 
séseeeeennenemeen een neenneee : Gestionnaire de contrôles 
; Routines utilisées par .Trap _DrawCortrois 
: l'accessoire. Sur un 512K, .Trap _FindControl 
; la définition des ‘Traps’ .Trap _GetMaxCti 
; peut être remplacée par : .Trap  _GetCtiValue 
: INCLUDE  MacTraps.D .Trap _GetCRetCon 
near eee eneenenn eee Trap __NewContro 
; Gestionnaire de ressources -Trap _SetCtiValue 
Trap _CountResources  $A99C Tr _ _OsMeCi 
Trap | GetindResource  $A99D -Trap  _SetMinoi 
Trap _GetResinto SA9A8 «Trap  _TrackControl 
: QuickDraw ; Utilitaires ToolBox 
Trap __Copyôts SASEC .Trap _Pack7 
-Trap _DrawString $A884 Aacesconesssemmssseseneeresneennes 
es —Erasehect se ; Equivalences. Sur un 512K, 
.Trap _FrameRect $A8A1 : 
.Trap _GetFontinfo $A88B À elles pouvert our 
Trap _GlobalToLocal  $A871 : remplacées par : 
.Trap _MoveTo $A893 : INCLUDE SysEqu.D 
.Trap _PtinRect $A8AD ; INCLUDE ToolEqu.D 
Trap  _SetPort $A873 RE NN. 
-Trap  _TextFace $A888 , 
.Trap _TextFont $A887 mButDwnEvt EQU 
-Trap _TextSize $AGSA keyDwnEvt EQU 
: Gestionnaire de polices keyUpEvt EQU 
Trap __RealFont $A902 autoKeyEvt EQU 
updatEvt EQU 
; Gestionnaire d'événements erycidn sn 
eLineHite 
.Trap _GetMouse $A972 teAscent EQU 
; Gestionnaire de fenêtres DH Eu 
.Trap _BeginUpdate $A922 DL EQU 
.Trap __DisposWindow $A914 teSize EQU 
-Trap _EndUpdate $A923 teNLines EQU 
Trap __NewWindow $A913 tolihes EQU 
. dCtiWindow EQU 
: TEXTEdit dCtiRefNum EQU 
.Trap _TEActivate $A9D8 WindowKind EQU 
.Trap _TEDeactivate $A9D9 CSCode EQU 
.Trap _TECalText $A9D0O CSParam EQU 
.Trap _TEClick $A9D4 evtNum EQU 
.Trap _TECopy $A9D5 evtMessage EQU 
.Trap _TECu $A9D6 evtMouse EQU 
.Trap _TEDelete $A9D7 evtMeta EQU 
.Trap _TEDispose $A9CD evtMBut EQU 
.Trap _TEldie $A9DA checkBoxProc EQU 
.Trap _TElinsert $A9DE radioButProc EQU 
.Trap  _TEKey $A9DC scrollBarProc EQU 
.Trap _TENew $A9D2 accEvent EQU 
.Trap _TEPaste $A9DB accRun EQU 
.Trap _TEScroll $A9DD accUndo EQU 
Trap _TESetSelect $A9D1 accCut EQU 


| Disqu | 


numéro 17 


La Disquette Mac 17 comporte les 
programmes Basic : 
"Catalogue sur imprimante”, pour obtenir 
toutes les informations sur les fichiers 
(type, créateur, index, position du premier 
bloc pour la partie "données", position du 
premier bloc pour la partie “ressource”, 
longueurs logique et physique, fichiers 


protégés ou non, icônes invisibles, etc... }) 
sur papier ou à l'écran. 
Routines "BLOAD" et "BSAVE", similaires 
aux routines de l'Apple ][, elles autorisent 
des sauvegardes et chargements rapides de 
fichiers binaires (données graphiques, 
tableaux de variables, etc. ). 
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accCopy EQU $47 

accPaste EQU $48 | 
accClear EQU $49 Z 

inUpButton EQU 20 C — 
inDownButton EQU 21 EE 
inPageUp EQU 22 LS 
inPageDown EQU 23 @) 
inThumb EQU 129 


tenneranensanansmanaenaeaas casse anna same sans mens snessauns 


: Début du code. Un accessoire de bureau est un 
; Driver’. A ce titre, il comporte un ‘en-tête" 
; Qui n'apparait pas dans une application 


ELCCCLELEECELELECEECECECECCPOCCPECCECCCECENEECEECEEEECEECCEECES 
, 


Base 


8 88888 8888 
$ 
Ë 


Titre 29, Lucy in the Sky with Diamonds’ 


ELLLLLEE CEE EEE CEE EECCEEECECEEEEEEEECEEEEES 


: Ouverture de l'accessoire : affichage de la 
: fenêtre, affichage des boutons, etc. 


ELCLELELECCECELECERC ELEC CEE CECECECENCOCOCOEECENCES 
, 


; Fenêtre existante ? Si non, mise en place de 
: l'accessoire 
Owverture MOVEM.L A1-A4,-(SP) 
MOVEL A1,A4 
TSTL DCtIWindow A4) 


BNE FenetreEx 
; Initialisation de la fenêtre 

CLR.L SP) 

CLR.L SP) 

PEA RectDial 

PEA Titre 


MOVE  #$100,-(SP) 
MOVE  #noGrowDocProc,-(SP) 
MOVEQ.L #-1,D0 

MOVE.L  D0,-SP) 

MOVE #$100,-(SP) 

CLRL SP) 

__NewWindow 

MOVEAL (SP}+,A0 

MOVE.L  A0,DCtIWindow(A4) 
MOVE _ DctiRefNum(A4),WindowKind{A0) 
MOVEL  A0,-(SP) 

_SetPort 


; Initialisation du tampon pour police complète 


1 à BAUME E CRT TE 
ME PO MED DEAN SECTE : 


i 








LEA TamponPolice,A6 
MOVE #521,07 
PoliceComp MOVEB  D7,(A6)+ 
MOVEB  #$20,(A6}+ 
ADDQ #1,07 
CMPI #256,07 
BNE.S PoliceComp 
: Début mise à jour 
MOVEL  DCtiWindow(A4),-(SP) 
__BeginUpdate 
: Vers sous-programme affichage des rectangles 
BSR Rectangies 
; Vers sous-programme affichage style polices 
CLR (SP) 
_TextFont 
BSR Chaines 
; Vers sous-programme affichage ‘bestiole' 
MOVE.L  DCtIWindow{Ad4),D7 
BSR AlCoc 
; Réinitialisation style 
LEA Apparence, A6 
CLR (A6) 
; Initialisation des zones de contrôle 
: Barre de défilement pour le texte 
CLA.L -(SP) 
MOVE.L  DctlWindow({A4),-(SP) 
PEA RectCti1 
CLR.L SP) 
MOVE #$100,-(SP) 
CLAL SP) 
MOVE #48,-(SP) 
MOVE #scrollBarProc,-(SP) 
CLAL SP) 
_NewCortrol 
LEA HandieCti1,A6 
MOVEL  (SP}+,(A6) 
; Barre de défilement pour choix police 
CLA.L SP) 
MOVEL  DCtWindow(A4),-(SP) 
PEA RectCti2 
CLR.L SP) 
MOVE #$100,-(SP) 
CLR -(SP) 
CLR.L SP) 
MOVE # scrollBarProc,-(SP) 
MOVEQ.L #1,07 
MOVEL  D7,-SP) 
_NewCorntral 
LEA HandieCti2,A6 
MOVE.L  (SP}+,(A6) 
; Barre de défilement pour choix taille 
CLR.L SP) 
MOVE.L  DCt'Window{(A4),-(SP) 
PEA RectCti3 
CLR.L SP) 
MOVE #$100,-(SP) 
CLR SP) 
CLRL SP) 
MOVE # scrollBarProc,-(SP) 
MOVEQ.L #2,D7 
MOVEL  D7,-SP) 
_NewControl 
LEA HandieCti3,A6 
MOVEL  (SP)+,(A6) 
: Bouton ‘OK' 
CLAL SP) 
MOVE.L  DCtiWindow{Ad),-(SP) 
PEA RectOK 
PEA NomOK 
MOVE #$100,-(SP) 
CLAL -(SP) 
CLRAL SP) 
MOVEQ.L #3,07 
MOVEL  D7,-(SP) 
_NewCortrol 
LEA HandieOK,A6 
MOVEL  (SP}+,(A6) 
* Bouton ‘Standard' 
CLAL -(SP) 
MOVEL  DCtiWindow(A4),-(SP) 
PEA RectStand 
CLAL SP) 
MOVE #$100,-(SP) 
MOVE #1,-(SP) 
CLR SP) 
MOVE #1,-(SP) 


MOVE #radioButProc,-{SP) 
MOVEQ.L #4,07 
MOVE.L  D7,-(SP) 
_NewCortrol 
LEA HandieStand,A6 
MOVEL  (SP}+,(A6) 

; Bouton ‘Gras’ 
CLAL SP) 
MOVEL  DCtIWindow(A4),-(SP) 
PEA RectGras 
CLAL SP) 
MOVE #$100,-(SP) 
CLAL SP) 
MOVE #1,-(SP) 
MOVEQ.L #5,D7 
MOVE #checkBoxProc,{SP) 
MOVE.L  D7,-SP) 
_NewControl 
LEA HandleGras,A6 
MOVEL  (SP}+,(A6) 

; Bouton 'Italique" 
CLR.L SP) 
MOVEL  DCtiWindow{A4),-(SP) 
PEA Rectital 
CLRL -(SP) 
MOVE #$100,-(SP) 
CLRL SP) 
MOVE #1,-(SP) 
MOVE #checkBoxProc,-{SP) 
MOVEQ.L #6,07 
MOVEL  D7,-(SP) 
_NewControl 
LEA Handleltal,A6 
MOVE.L  (SP}+,(A6) 

; Bouton "Souligné' 
CLRL -(SP) 
MOVEL  DCtiWindow(A4),-(SP) 
PEA RectSoul 
CLR.L SP) 
MOVE #$100,-(SP) 
CLAL SP) 
MOVE #1,-(SP) 
MOVE #checkBoxProc,-{SP) 
MOVEQ.L #7,07 
MOVEL D7,-(SP) 
_NewControi 
LEA HandieSoul,A6 
MOVEL  (SP}+,(A6) 

; Bouton ‘Relief 
CLR.L SP) 
MOVE.L  DCt/Window{A4),-(SP) 
PEA RectRelief 
CLR.L SP) 
MOVE #$100,-(SP) 
CLA.L SP) 
MOVE #1,-(SP) 
MOVE #checkBoxProc,-{SP) 
MOVEQ.L #8,07 
MOVEL  D7,-{SP) 
_NewCortrol 
LEA HandieRelief,A6 
MOVEL  (SP}+,(A6) 

; Bouton ‘Ombre’ 
CLRL SP) 
MOVEL  DCtIWindow({Ad),-(SP) 
PEA RectOmbre 
CLAL SP) 
MOVE #$100,-(SP) 
CLAL -(SP) 
MOVE #1,-(SP) 
MOVE #checkBoxProc,{SP) 
MOVEQL #9,D7 
MOVEL  D7,-(SP) 
_NewCortrol 
LEA HandieOmbre,A6 
MOVE.L  (SP}+,(A6) 


ÉLLLELELELLELEEECECEREEEEECEECECPECECEEPEPEPCEEEES 
, 


: Affichage des polices présentes sur la 
: disquette (dans le fichier système ). 


ÉLLLELELEECCECEEEEECECCPCCCCECCEPCCCCECEOCEREENEEES 


, 


; Intialisation de la zone de texte 
CLARA SP) 
_TextFace 
CLR.L SP) 
PEA RectVPolices 
PEA RectVPolices 
TENew 





LEA HandiePolices,A6 


MOVEL  (SP}+,(A8) 


; Nombre de ressources de type 'FONT 


del 


CLA SP) + EN 
MOVE.L #$464F4E54,{SP) LS 
__CourtResources 
MOVE (SP)+,07 

; Lecture et affichage des noms 
LEA NumRefPolices,A3 
LEA BGetDitem,A2 
CLA D6 

BLNom CLR.L SP) 
MOVE.L  #$464F4E54,-{SP) 
MOVE 07,-SP) 
_GetindResource 
PEA BGetDitem 
PEA BgetDitem+2 
PEA TamponNom 
__GetResinfo 
LEA TamponNom,A6 
MOVE.B  (A6),03 
BEQ BErr 
MOVEB  #32,(A6) 
ADDQ #1,06 
MOVE (A2),(A3}+ 
MOVEL  A6,-(SP) 
ANDI.L #$FF,03 
ADDQ #1,03 
MOVEL  D3,-SP) 
LEA HandiePolices,A6 
MOVE.L (A6),-(SP) 
_TElnsert 
PEA CR 
MOVEL  #2,-SP) 
MOVEL  (A6),-(SP) 
_TElnsert 

Berr SUBQ #1,07 
BNE.S BLNom 

; Valeur maxi de la barre de défilement 

; en fonction du nombre de polices 
LEA NombPolices,A6 
MOVE D6,(A6)+ 
MOVE #1,(A6) 
LEA HandiePolices,A3 
MOVEL  (A3),-(SP) 
_TEActivate 
CMP #6,-2(A6) 
BLE.S Retour 
LEA HandieCti2,A3 
MOVEL  (A3),-(SP) 
MOVE -2(A6),07 
SUBQ #6,07 
MOVE D7,-SP) 
__SetMaxCtl 

Retour LEA HandiePolices,A6 
MOVEQ  #1,D7 

; Vers sous-programme pour visualiser 

; la police selectionnée 
BSR Selection 

; Vers sous-programme pour affichage 

; tailles valides 
BSR TaillesP 

; Vers sous programme caractéristiques 

; de la police 
BSR CaracTexte 

; iInitialisation zone pour le texie et 

: affichage du texte par défaut 
CLR.L SP) 
PEA RectDTexte 
PEA RectVTexte 
_TENew 
LEA HandieTexte,A6 
MOVE.L (SP}+,(A6) 
PEA NomDetaut 
MOVEL  #87,{SP) 
MOVEL  (A8),-SP) 

TEinsert 

; Fin mise à jour 
MOVEL  DCtIWindow({Ad),-{SP) 
__EndUpdate 


; Activation de la zone de texte 


LEA 
MOVEL 


HandieTexte,A6 
(A6),-SP) 


_TEActivate 
; Fin de la mise en place de l'accessoire 


FenetreEx 


MOVEML (SP}+,A1-A4 
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CLR DO Evi CMPI #keyDwnEvt, DO MOVEL  (A6),{SP) 
ARTS BEQ ToucheE _TEUpdate 5 2x) 
PR EEE Mo TE PEA  ReciVTailles C 
: Routine appelée par le système en cas CMPI #updatEvt, DO TES ris LES 
: d'évenement correspondant au masque situé BNE Eve TEUpdate {A6),SP) ©) 
; dans l'en-tête de l'accessoire BSR MisseJour re 
ri Ti biSisssntétasaaae ess bé dd ous sms can MOVEL A4),-(SP) 
. Ev2 BRA FinControle pr EvtMessage( 
Controle MOVEM.L A1-A4,-(SP) Écosse sit eiesiissepéapénessée MOVEL  EvtMessage(A4),-(SP) 
NE k rest ; Touche enfoncée. Si touche commande", _EndUpdate 
(AO),DO tr patent , ATS 
CMPI #accEvent.DO ; vérification si Couper’, 'Coller, ect. 
; Sinon, affichage du caractère. 
BEQ Evenements Dai aiis si nme ere nsiréses : 
CMPI #accRun,DO ; ; Click dans la fenêtre de l'accessoire 
BEQ Tempo ToucheE MOVEB  eviMeta(A4),D1 ; Routine pour déterminer la zone concernée 
CMP! #accCut, DO ANDIB  #1,D1 sennesennnenne same nes ennne mens sen enee seen ente 
BEQ Couper BEQ.S ToucheE0 . 
CMPI #accCopy,DO MOVE.B _ evtMessage+2{A4),D0 Contenu EL ms ui ATLAS 
BEQ Copier CMPIB  #8,D0 MOVEL … (A6) 4 AT), 
CMPI #accPaste,DO ns F qu SetPort ‘ 
BEQ Coller BEQ Copier MOVEQ AT 
CMPI #accClear,DO CMPIB  #11,D0 , 
BEQ Effacer neo Cour TrEVR MOVE OA GOS.OUAE Dé 
FinControle  MOVEML (SP}+,A1-A4 ToucheEO  MOVEL  evtMessage(A4),DO ds perd PA pe ),0(A6,D6) 
CLR D0 ANDI_ #$FF,D0 DBRA  D7.TEVR 
RATS MOVE  DO0,-(SP) À 
LEA HandieTexte,A4 PEA EventRecord+10 
denenenenennssenenenenennnnnennenenen nee MOVEL  (A4),-{SP) GlobafToLocal 
: Fermeture de l'accessoire _TEKey CLR.B SP) 
Mnnensessnnnenneneneemeee riens énen nues BRA FinControle LEA EventRecord+10,A6 
Fermeture MOVEML A-A4,-(SP)  — one : 
MOVE.L  At,A4 eee enenenneneeenenenene es raial Police F4 
MOVEL  DCtWindow(A4),-(SP) ; Mise à jour de la fenêtre (en cas MOVEB  (SP)+,D0 LE 
CR. PM ; d'eflacement total ou partiel). BNE DFPolices Hs 
BRAS | FinControie CLR +: :-(5P} 4 
: MiseJour MOVE.L  EvtMessage(Ad),-(SP) LEA EventRecord+10,A6 rs 
anne pere émettre _BeginUpdate MOVEL  (A6).{SP) Es 
; Routine appelée six fois par seconde pour Re EvtMessage(A4),-(SP) FOR RectVT ailles ë 
Éabres seit achaeesshnfhrine Re BSRA Rectangles MOVEB (SP}+,D0 vi 
’ CLA (SP) BNE DFTailles Fi 
Tempo LEA HandieTexte,A6 _TextFont CLRB  -(SP) W : 
MOVEL  (A6).-(SP) CLR {SP) LEA EventRecord+10,A6 É: 
_TEldie _TextFace MOVEL  (A6),-{SP) Fa 
BRA FinControle MOVE #12,-(SP) PEA RectVTexte re 
ÉLLELLLELEELLELELELLE CCC ECC CCCCCCCCUUS _TextSize __PtinRect 
NS BSR Chaines MOVEB (SP)+,D0 
ns MOVEL  EviMessage(A4),D7 BNE DFTexte 
; BSR AfCoc CLRB SP) 
Evenements MOVEL CSParam(AO),A4 PEA RectVTexte LEA EventRecord+10,A6 
MOVE EvtNum(A4),DO LEA HandieTexte,A6 MOVE.L (A6),-{SP) 
CMPI #mButDwnEvt, DO MOVEL (A6).-(SP) PEA RectCoc 
BNES  Evi _TEUpdate PtinRect 
BSR Contenu PEA RectVPolices MOVE.B  (SP)+,D0 
BRA FinControle LEA HandiePolices,A6 BNE DCoc 


(Disquette Macintosh 
numéro 18 


Elle comporte le nouveau fichier système et 
la version 4.1 du Finder, plus rapide et 
complète que la précédente. Le programme 
"System update” autorise l'implantation des 
nouveaux Finder et Système sur vos 
anciennes disquettes. "BR Démo” est un 
programme qui permet l'affichage temporisé 
d'écrans créés avec la séquence de touches 


tristes 27 rt 


"Commande-Shift-Majuscule-3". "Font/DA 
Mover" est une version améliorée de "Font 
Mover". De plus, il permet de manipuler les 
accessoires de bureau. Enfin, outre les 
programmes publiés dans le numéro 18, 
vous trouverez les polices Times, Courier, 
Symbol et Helvetica. 
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; Routine pour déterminer si action dans 
; une zone de contrôle et, si oui, laquelle 


ELLLLLLLELECCECECEECEEECEECECCEPPONCEEEENEENEEREES 
, 


CLR {SP) 

MOVEL (A6),-{SP) 

LEA DialogPtr,A4 

MOVEL (A4),{SP) 

PEA WhichControl 
FindControl 

MOVE  (SP)+,D0 

BEQS  ContS 

LEA WhichControl,A3 

LEA ValeurCtl,A2 

CLR {SP) 


MOVE  (SP)+,(A2) 
CLR SP) 

MOVEL  (A2),-(SP) 
MOVEL (A6),{SP) 


CLA.L SP) 
__TrackCortroi 
MOVE {SP)+,D0 
BNE.S Conti 

Cons RTS 

Cont1 CLAL SP) 
MOVEL  (A3),-(SP) 
_GetCRefCon 
MOVEL  (SP)+,D1 
BEQ ControlTexte 
CMPI #1,D1 
BEQ ControlP 
CMPI #2,D1 
BEQ ControiT ail 
CMPI #3,01 
BEQ BOK 
CMPI #4,D1 
BEQ BStd 


BRA BApparence 


ELECCCLELCCECELCEEE CEE PECEC ECC ECCEECEPECCCECCEES 
, 


; Traitement d'une action dans la barre de 








SUBQ  #6,D6 

BMLS  PageHautPO 

SUBQ  #6,D5 

MOVE _ #16°6,D6 

BRAS  PageHautP1 
PageHautPO MOVE  #16,D6 

MULU  D5,D6 

CLR DS 
PageHautPi CLR {SP) 

MOVE  D6,{SP) 

LEA HandlePolices,A6 

MOVE.L  O(A6,D4),-{SP) 

_TEScroil 

MOVEL (A3),{SP) 

MOVE  D5,{SP) 

_SetCtiVaiue 

ATS 


ELLLELE LEE ECTECECENCEOCCECCCCECECEEEREEREEEEEREES 


: Traitement d'une action sur la partie 
: ‘page bas’ de la barre de défilement des 


MOVE D5,-{SP) 
_SetCtiValue 

CLR {SP) 
MOVE _ #-16,-(SP) 


la] 


LEA HandiePolices,A3 2 2) 


MOVEL  O(A3,D4),{SP) n 
_TEScroil 

FIBPO RATS 

: Action dans la barre de défilement du 


; texte 

ControiTexte LEA HandleTexte,A6 
MOVE.L (A6),A6 
MOVE.L  (A6),A6 
MOVE $18(A6),D7 
CM #254,D0 


ELCLELELEECELEEEE CEE ECECECEENEEECEEEEP EEE 
, 


; Traitement d'une action sur la flèche 
; vers le haut de la barre de défilement 
; du texte. 


ELLLCLELLECLEE ELLE ELEC EC EC PEPECPECCTEOPCCEECCEES 
, 


FlecheH CLR SP) 
MOVEL  (A3),-{SP) 
__GetCtiValue 
MOVE (SP)+,D0 
BEQ.S FO 


SUBQ #1,D0 
MOVE.L  (A3),-(SP) 
MOVE DO,-(SP) 


: polices ou des tailles 

PageBasP CLA SP) 
MOVEL  (A3),-(SP) 
__GetCtiValue 
MOVE {SP)+,05 
CLR SP) 
MOVEL  (A3),-(SP) 
__GetMaxCt| 
MOVE {SP)+,D6 
MOVE D5,07 
ADDQ #6,07 
CMP D6,07 
BGT.S PageBasP0 
ADDQ #6,05 
MOVE #-96,D6 
BRAS PageBasP1 

PageBasPO MOVE D6,D7 
SUB D5,D7 
MOVE D6,D5 
MOVE #-16,D6 
MULU D7,D6 

PageBasPi CLR SP) 
MOVE D6,-(SP) 
LEA HandiePolices,A6 
MOVE.L  O{A6,D4),-(SP) 


_TEScroll 
MOVEL  (A3),-(SP) 
MOVE  D5,-{SP) 
_SetCtiValue 

RTS 


ELELELELCECELECEECECE CEE CEC ELEC ECCPCCEPECPPEECES 
, 


; Traitement d'une action sur la flèche 
; vers le haut de la barre de défilement 


__SetCtiValue 
CLR SP) 
MOVE D7,-(SP) 
LEA HandieTexte,A3 
MOVE.L (A3),-(SP) 
_TEScroll 

F0 RTS 


ELLECLECECECECCECECCECEECECCCEOCCECEECCEECETS 
, 


; Traitement d'une action sur la flèche 
; vers le bas de la barre de défilement 


: défilement des polices ou des tailles 
CortrolP CLR D4 
BRAS ControlPTO 
ControlT ail MOVEQ  #4,D4 
ControlPTO  CMPI #254,D0 
BEQ Cons 
CMPI #inUpButton, DO 
BEQ FlecheHP 
CMPI #inDownButton, DO 
BEQ FlecheBP 
CMPI #inPageUp,D0 
BEQ PageHautP 
CMP! #inPage Down, DO 
BEQ PageBasP 
CMPI #inThumb,DO 
BEQ Ascenseur? 
BRA Cons 


ÉLLELLEL EE LEE ECECE CPE CEEEEEECCECCCEOEOEEEEENERTE 
, 


: Traitement d'une action sur ‘l'ascenseur 
: de la barre de défilement des polices ou 


; des tailles 
AscenseurP CLR -(SP) 
MOVE.L  (A3),-(SP) 
_GetCtiValue 
MOVE {SP)+,05 
LEA ValeurCti,A4 
MOVE (A4),D6 
SUB D5,D6 
MOVE #16,07 
MULU D6,07 
CLARA SP) 
MOVE D7,-(SP) 
LEA HandiePolices,A3 
MOVE.L  O(A3,D4),-(SP}) 
_TEScroll 
RATS 


ELLLLELELE EEE CEE EECEEEECECENECCECECEECERECEOERNES 
, 


; Traitement d'une action sur la partie 
: page haut’ de la barre de défilement des 








: polices ou des taille: 

PageHautP CLR (SP) 
MOVEL  (A3),-(SP) 
__GetCtiValue 
MOVE {SP}+,D5 
MOVE D5,D6 


; des polices ou des tailles 

FlecheHP CLR -(SP) 
MOVEL  (A3),-(SP) 
_GetCtiValue 
MOVE (SP)+,D0 
BEQ Cons 
SUBQ #1,D0 
MOVEL  (A3),-(SP) 
MOVE D0,-(SP) 
__SetCtiValue 
CLR SP) 
MOVE #16,-(SP) 
LEA HandiePolices,A3 
MOVE.L  O(A3,D4),-(SP) 
_TEScroll 
ATS 


ELLLELELEEL ELEC EPEPEPETS 
, 


; Traitement d'une action sur la flèche 
; vers le bas de la barre de défilement 
: des polices ou des tailles 


ELLEELELLECECEEECEECEPEECECCCCECECCECECCEERCERCECEES 
, 


FlecheBP CLR (SP) 
MOVE.L  (A3),-(SP) 





CLCOLECECECCE ELLE LES 


MOVE  (SP)+,D5 
CLR {SP) 
MOVE.L  (A3),-(SP) 
_GetMaxCti 

MOVE  (SP)+,D6 
CMP D6,05 
BEQ.S  FIBPO 
ADDQ  #1,D5 
MOVEL  (A3),{SP) 


; du texte. 

FlecheB CLARA SP) 
MOVE.L (A3),-(SP) 
__GetCtiValue 
MOVE (SP)+,D0 
CMP #48,D0 
BEQ.S FIB0 
ADDQ #1,00 
MOVEL  (A3),-(SP) 
MOVE DO,-(SP) 
__SetCtiValue 
CLR SP) 
NEG D7 
MOVE D7,-(SP) 
LEA HandieTexte,A3 
MOVEL _(A3),-SP) 
_TEScroll 

F1B80 RTS 


ELLELLLEELELELEECECECEPECEEECCEEECEECEENEEECEES 
, 


: Trañement d'une action dans la partie 


; Page haut de la barre de défilement 

; du texte. 

PageHaut CLR SP) 
MOVEL  (A3),-(SP) 
_GetCtiValue 
MOVE (SP)+,D5 
MOVEL  #112,D0 
DIVU D7,D0 
MOVE D5,D6 
SUB DO,D6 
BMIS PageHautO 
SUB D0,D5 
MULU D0,07 


Pom's n° 19 








MOVE D7,D6 NEG D7 MOVE #4,-(SP) 
BRA.S PageHaut1 MOVE D7,D6 _TextFace | 
PageHautO MULU D5,07 BRAS PageBas1 ADD D5,D4 "x 
MOVE D7,D6 PageBas0 MOVE D6,D4 MOVE D3,-(SP) ee. 
CLA D5 SUB DO,D4 MOVE D4,{SP) LR 
PageHauti  CLA (SP) MOVE D6,D5 _MoveTo D 
MOVE D6,-(SP) MULU D4,D7 PEA Ca 
LEA HandleTexte,A6 NEG 07 __DrawString 
MOVE.L (A6),-(SP) MOVE D7,D6 MOVE #8,-(SP) 
_TEScroll PageBas1 CLR SP) _TextFace 
MOVEL  (A3),-{SP) MOVE  D6,-(SP) ADD D5,D4 
MOVE D5,-(SP) LEA HandieTexte,A6 MOVE D3,-(SP) 
__SetCtiValue MOVEL  (A6),-(SP) MOVE D4,-(SP) 
RTS _TEScroll _MoveTo 
MOVEL  (A3),-(SP) PEA cs 
eesneeseeneneeseenenneeeenee seen enenennen eee MOVE D5,-{SP) _DrawString 
; Traitement d'une action sur ‘l'ascenseur _SetCtiValue MOVE #16,-(SP) 
: de la barre de défilement du texte. RTS _TextFace 
enenneeseneeenense nee eee eneesenennenne nee ADD D5,D4 
een eneenneennn seen nenee sens eee nnnnee MOVE D3:{SP) 
PRE MovEL Asp Sous programme pour 06 de rocanges MOVE … DA SP 
| GetCiValue semesntenntensenseenennnerer _ MoveTo 
MOVE (SP)+,05 Rectangles  PEA RectTexte PEA C6 
LEA ValeurCti,A4 FrameRect __DrawString 
MOVE  (A4),D6 PEA RectPolices RTS 
SUB D5,D6 __FrameRect 
MULU D6,07 PEA ReciTailles Mennnnsnan nantes ean eee n en nee nnenee sense asenn ne 
an en "Sub : Sous-programme pour affichage ‘bestiole 
MOVE D7,{SP) ATS ones crndirah atulreneos > Eee PE 
is RO" ETS AfCoc LEA BitMapCoc,A6 
TEScroll | ; Sous-programme pour affichage des chaînes LEA DataCoc,A3 
ATS mener nee nene nee een ennnneneneennn ee MOVEL  A3,(A6) 
Chaines MOVE  #226,D3 se sh 
ons nspsenenenerense MOVE #142,D4 ADDOL #2,A6 
pme MOVE #16,05 AUDE #8 + 
; Traitement d'une action dans la partie MOVE D3,-(SP) PEA ReciseCec 
; page bas’ de la barre de défilement MOVE D4,-(SP) PEA RoeiCeo 
; dutexte. MoveTo 
Mesnnne senc sesee none sestensenenneneanene = CLR SP) 
e PEA C1 CLRL  -{SP) 
PageBas CLR SP) __DrawString CopyBits 
MOVE.L  (A3),{SP) MOVE #1,-(SP) RTS 
__GetCtiIValue _TextFace 
ADD D5,D4 


MOVE (SP}+,05 


MOVE  D3,{SP) 


ÉLLLLLE LEE ELLE EE EECECENEEECETENEEENNNENEEEERES 
, 





: Sous-programme pour visualisation de la 
CLR SP) MOVE D4,-(SP) MEET s x 
MOVEL _ (A3).{SP) _MoveTo nintnharabr honneur sie OSEO 
__GetMaxCti PEA ce : 
MOVE (SP)+,D6 _DrawString Selection SUBQ #1,07 
MOVEL  #112,D0 MOVE #2,-(SP) ADD D7,07 
DIVU D7,D0 _TextFace MOVEAL A6,A3 
MOVE D5,D4 ADD D5,D4 MOVEA.L (A6),A6 
ADD DO,D4 MOVE D3,-(SP) Re: or 
MP D6,D4 {SP À ‘ 
Bars PageBas0 pret ail MOVE teLines(A6,D7),D6 
ADD D0,D5 PEA c3 MOVEL  D6,-{SP) 
MULU D0,D7 _DrawString CLR.L D6 


| — FA 
numéro 19 


Vous trouverez, sur cette nouvelle disquette, 
la nouvelle version de MacWrite (4.5). Ce 
programme de traitement de texte, 
contrairement à son prédécesseur, est "Disk 
Based", ce qui signifie que la taille des 
fichiers traités n'est plus directement liée à 
la mémoire disponible. MacWrite 4.5 est 
accompagné de MacPaint 1.5, qui a 


l'avantage de ne plus "perdre la grille" lors 
des déplacements. Le dossier système 
comporte les accessoires de bureau "Lucy" 
et "5" (le fichier source de "Lucy", situé sur 
la disquette, est commenté point par point). 
Les exemples liés aux articles sont bien sûr 
présents sur la disquette. 
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CER “(SP 
CLRL -(SP) #8 
—LopyBits 

RTS 


election SUB 
ADD D7 D7 4 


MOVE D7 
MOYE Dé 
Re:lFont 





(SP) 
(SP) 
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MOVE 
MOVEL D6,-4{SP) 
MOVEL (A3),-(SP) 
_TESetSelect 

RTS 


ELLELEEEEECEPECEPEEEEECEPECPCCEPECEECEREEEEENNES 


: Sous-programme pour determination et 
: affichage des tailles valides 


ELLLELELEEELEECECEEEEEEEEEECECPECEENOEREEEEEEEES 
, 


TaillesP 


BTaille 


Staille 


RetourT 
RetourT1 


MOVEML Ad4,-(SP) 


CLR SP) 

TextFont 

(SP) 

_TextFace 
MOVE #12,-(SP) 
_TextSize 
CLRL -(SP) 
PEA RectVTailles 
PEA RectVTailles 
_TENew 
LEA HandieTailles,A6 
MOVEL  (SP}+,(A8) 
CLR D4 
LEA NombTailles,A3 
CLR (A3) 
LEA NumTailles,A4 
LEA PoliceSelec,A6 
MOVE (A6),07 
ADD 07,07 
MOVE 0(A6,07),D7 
LSR #7,07 

CLR.L D6 
MOVEQ  #4,D6 
CLR.B SP) 
MOVE D7,-(SP) 
MOVE D6,-(SP) 
_RealFont 
MOVEB  (SP)+,D5 
BEQ STaille 
ADDQ #1,(A3) 
MOVE D6,(A4)+ 
MOVEL  D6,D0 
LEA TamponNombre, AO 
CLA SP) 
__Pack7 
MOVE.B  (A0),D2 
MOVE.B  #32,(A0) 
MOVEL  A0,-(SP) 
ANDI.L #$FF,D2 
ADDQ #1,D2 
MOVEL  D2,-(SP) 
LEA HandieTailles,A1 
MOVEL  (A1),-(SP) 
_TElnsert 
PEA CR 
MOVEL  #2,-(SP) 
LEA HandieTailles,A1 
MOVEL  (A1),{SP) 

TEinsert 
ADDQ #1,D6 
CMP #128,D6 
BNE BTaille 
MOVE #1,2(A3) 
LEA HandieTailles,A4 
MOVEL  (Ad),-(SP) 
_TEActivate 
LEA NombTailles,A6 
CMP #6, (A6) 
BLE.S RetourT 
MOVE (A6),D6 
SUBQ #6,D6 
BRA.S RetourT1 
CLA D6 
LEA HandieCti3,A4 


MOVE.L (A4),-{SP) 
MOVE  D6,-(SP) 


__SetMaxCti 

MOVEL (A4),-{SP) 

CLR SP) 
__SetCtiValue 

LEA HandleTailles,A6 
MOVEQ  #1,D7 

BSR Selection 


MOVEML (SP)+,A4 
ATS 


RLLLLELLEELELELEEEECE CCECECCECENEREENPEEEENPEEES 
, 


; Traitement d'une action sur le bouton - 


:' Standard 


CELLELELEELEEECEPECEPECECECCECECEOCEENEENS 





….. 
, 


teLines+2(A6,D7),D6 


BStd LEA Apparence, A6 
MOVE (A6),D0 
BEQ.S BStdF 
CLR (A6) 
LEA HandleStand,A6 
MOVE.L  (A6),-{SP) 
MOVE #1,-(SP) 
__SetCti\Vailue 
MOVE #4,D6 
CLR 07 
LEA HandleGras,A6 
BBStd MOVEL  O(A6,D7),-(SP) 
CLR SP) 
__SetCtiValue 
ADDQ #4,07 
DBRA D6,BBStd 
BStdF RTS 


ELLLELLELELECECEECEPCENCPEEEES 


it 


xt 









COLLE ECCCEECPOOTES 


CLCCLECELELEEEE EEE 


; Sous-programme pour caractéristiques du 


CLLLLLELECE ECOLE EEE CES 


CaracTexte LEA PoliceSelec,A6 
MOVE (A6),07 
ADD 07,07 
MOVE 0(A6,D7),D7 
LSR #7,07 
MOVE D7,-SP) 
_TextFont 
LEA TailleSelec,A6 
MOVE (A6),07 
ADD D7,07 
MOVE  O(A6,D7),-(SP) 
_TextSize 
LEA Apparence, A6 
MOVE  (A8),-(SP) 
_TextFace 
PEA Fontinto 
_GetFontinto 
RATS 





CELCELECE LEE 


CECILE CEE EEE ECS 


; Traitement d'une action sur le bouton ‘OK 


ELLLECLEEELELECCELEEPECEE EEE 
, 


CECLELELEECECECEECEPEENTS 


BOK BSR CaracTexte 
LEA HandieTexte, A4 
MOVEA.L (Ad),A4 
MOVEA.L (Ad),A4 
LEA Fontinfo,A6 
MOVE (A6).teAscent(A4) 
MOVE (A6),D0 
ADD 2(A6),00 
ADD 6(A6),D0 
MOVE DO,teLineHite(A4) 
LEA PoliceSelec,A6 
MOVE (A6),07 
ADD D7,07 
MOVE 0(A6,D7),07 
LSR #7,07 
MOVE D7,teFont(A4) 
LEA TaïlleSelec,A6 
MOVE (A6),07 
ADD 07,07 
MOVE 0(A6,07),teSize(A4) 
LEA Apparence, A6 
MOVEB  1(A6).teFace(Ad) 
LEA RectDTexte,A6 
MOVE.L  (A6)+,(A4)+ 
MOVE.L  (A6),(A4) 
LEA HandleTexte,A4 
MOVEL  (Ad),-(SP) 
_TECalText 
PEA RectVTexte 
_EraseRect 
PEA RectVTexte 
LEA HandieTexte,A6 
MOVEL  (A6),-(SP) 
_TEUpdate 
LEA HandieCt1,A6 
MOVE.L  (A6),-(SP) 
CLR SP) 
__SetCtiValue 
RATS 


ÉLLEELECCOCECECECEEECOECEENTS 
, 


COCECECELCCELEEE 





; Traitement d'une action sur la ‘bestiole' 


ELLLLLECLELECEECECEEPEPEPPEEETS 
, 


DCoc LEA 
MOVE.L 


HandieTexte,A6 
(A6),-{SP) 


_TEDispose 


de mé € ge bp 3-90 
LÉ Ent 2 à 2: -EUE 


EraseRect [5 
CLA.L SP) _) 
PEA RectDTexte 
PEA RectVTexte Fes 
_TENew SE EE 
LEA HandieTexte,A6 LS 
MOVE.L  (SP})+,(A6) 

MOVE.L  (A6),-(SP) 
_TEActivate 

PEA TamponPolice 
MOVE.L  #446,{SP) 
MOVE.L  (A6),-(SP) 
_TEinsert 

LEA HandieCti1,A6 
MOVEL  (A6),-(SP) 
CLR SP) 
__SetCtiValue 

RTS 


ÉLCLELECLOLELECECLE CE CELL EE CCE CEPEEECEECTES 
, 


; Action dans la fenêtre de texte 


DFTexte LEA 
MOVE 
ANDI 
MOVE 
LSR 
MOVEL 
MOVE.B 
LEA 
MOVE.L 
_TEClick 
RTS 


…… 





ennnnonnesnnsnnnennannense ne 


EventRecord+10,A6 
4(A6),D0 

#$200,D0 

#9,D1 

D1,00 

(A6),-(SP) 

D0,-SP) 
HandieTexte,A6 
(A6),-(SP) 


ELLLELELLELELECECCCEECOCECCECERECONCEONERNES 


: Traitement d'une action sur un bouton 


: permettant de modifier le style 
BApparence MOVE #1,D4 
SUBQ #5,D1 
LSL D1,D4 
StyleG LEA Apparence, A6 
EOR D4,(A6) 
MOVE (A6),D6 
AND D4,06 
BEQ.S StyleG2 
MOVE #1,D4 
BRA.S StyleG3 
StyleG2 CLR D4 
StyleG3 LEA WhichControl,A6 
MOVE.L  (A6),-(SP) 
MOVE D4,-(SP) 
_SetCtiValue 
LEA Apparence, A6 
MOVE (A6),D0 
BNE.S StyleGS 
MOVE #1,D4 
BRAS StyleGS2 
StyleGS CLR D4 
StyleGS2 LEA HandieStand,A6 
MOVEL  (A6),-(SP) 
MOVE D4,-(SP) 
__SetCtiVaiue 
RATS 
: Selection d'une police 
DFPolices PEA PosMouse 
__GetMouse 
LEA PosMouss A6 
MOVE (A6),D0 
CMPI #128,D0 
BLE DFPolicesO 
CMPI #144,D0 
BGT.S DFPolices 1 
MOVEQ  #1,07 
BRAS DFPolicesT 
DFPolicesi  CMPI #160,D0 
BGT.S DFPolices2 
MOVEQ  #2,07 
BRA.S DFPolicesT 
DFPolices2  CMPI #176,D0 
BGT.S DFPolices3 
MOVEQ  #3,D7 
BRAS DFPolicesT 
DFPolices3  CMPI #192,D0 
BGT.S DFPolices4 
MOVEQ  #4,07 
BRAS DFPolicesT 
DFPolices4  CMPI #208,D0 
BGT.S DFPolices5 
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BE—— 








Montreal 
Stuttgart 
Cupertino 
Sunnyvale 
Sydney 

Las Vegas 


MOVEQ  #5,07 
BRAS DFPolicesT 
DFPolices5  CMPI #224,D0 
BGT.S DFPolicesO 
MOVEQ  #6,07 
DFPolicesT LEA Nombpolices,A6 
MOVE (A6),D6 
CMP D6,07 
BGT.S DFPolicesO 
LEA HandleCti2,A4 
CLA (SP) 
MOVE.L  (Ad),-(SP) 
__GetCtiValue 
ADD {SP)+,07 
CMP 2(A6),07 
BEQ.S DFPolices0 
MOVE D7,2(A6) 
LEA HandiePolices,A6 
BSR Selection 
BSR TaillesP 
DFPolices0 RATS 
; Selection d'une taille 
DFTailles PEA PosMousse 
__GetMouse 
LEA PosMouse,A6 
MOVE (A6),D0 
CMPI #128,D0 
BLE DFTailles0 
CMPI #144,D0 
BGT.S DFTailles 1 
MOVEQ  #1,07 
BRAS DFTaillesT 
DFTailles1 CMPI #160,D0 
BGT.S DFTailles2 
MOVEQ  #2,07 
BRA.S DFTaillesT 
DFTailles2 CMPI #176,D0 
BGT.S DFTailles3 
MOVEQ  #3,D7 
BRAS DFTaillesT 
DFTailles3 CMPI #192,D0 
BGT.S DFTailles4 
MOVEQ  #4,D7 
BRAS DFTaillesT 
DFTailles4 CMPI #208,D0 
BGT.S DFTailles5 
MOVEQ  #5,07 
BRAS DFTaillesT 
DFTailless CMPI #224,D0 
BGT.S DFTaillesO 
MOVEQ  #6,D7 
DFTaillesT LEA NombTailles, A6 
MOVE {A6),D6 
CMP D6,07 
BGT DFTailles0 
LEA HandieCti3,A4 
CLR {SP) 
MOVE.L (A4),{SP) 
_GetCtiVaiue 
ADD (SP)+,07 
CMP 2(A6),07 
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Lucy in the Sky with Diamonds 
HAS TnrfNñnæaàÔ 
Œ oc D gore 5 4 LL % % 
























@) Standard 
[] 6ras 

CO] //a/igue 
[] Souligné 
Ol Relief 


DataCoc DC.L 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 


Lucy.R 


Lucy.Rsre 


127,7,224,104 
127,135,224,175 
9,12,1000,364 
9,12,118,364 
128,8,223,103 
128,136,223,174 
149,322,203,386 
24,4,338,508 
7,367,119,383 
127,103,224,119 
127,174,224,190 
203,310,222,377 
132,207,144,221 
148,207,160,221 
164,207,176,221 
180,207,192,221 
196,207,208,221 
212,207,224,221 


[3] 
LES 


D 


888888888888888888 


DCB 
DCB.B 446,0 


DCB 6,0 î 
DC.B 2,OK',0 ki 
DC.B ‘Exemple de texte. ' * 
DC.B ‘Vous pouvez obtenir la' : 
DC.B ‘police complète en cli' fre 
DC.B ‘quant sur la “bestiole”.' 4 
$00080002,$00000004,$00040000 | 
$0006000C,$00000006,$000C0000 “ 
$0006000C,$00000005,$3F940000 = 
$0002C068,$00000001 ,$00100000 É 
$00020008,$00000002,$7FC80000 Ve 
$0004BBA4,$00000004,$ 1 F040000 Es" 
$00042084,$0000001 E,$404F0000 
$006A404A,$C00001 DF,$209F7000 
$02B3DF79,$A8000561,$FFFOD400 
$OADAFFES5,$6A00 1580,$3F803500 
$28000000,$ 1A803600,$00000D80 
$6C1C1542,$06C05422,$00020540 
$A9227380,$C2A0D83C,$8A490360 
$AB8208A48,$C2A0D020,$8A482160 
$B1207249,$C1A05400,$00000540 
$70000000,$0 1C03000,$00000 180 
$31500001,$51801805,$55540300 
$08000000,$02000A00,$00000A00 
$04A80002,$A4000402,$AAAB80400 
$02000000,$0C000328,$00029800 
$01822A88,$300000C2,$40486000 
$00648024,$C000003C,$80278000 
$0018E0E3,$00000009,$FFF20000 
$0009FFF2,$00000004,$FFE40000 
$00049F24,$000000E2,$60C8E000 
$03175150,$18001C08,$11020700 
$60002080,$00C03FFF,$C07FFFB0 


TYPE DRVR = PROC 
Lucy in the Sky with Diamonds ,28 


Lucy 





Lucy.Link 


[ 
Lucy.Rel 


BEQ.S DFTaillesO 
MOVE D7,2(A6) 
LEA HandieTailles,A6 
BSR Selection 

DFTailles0 RTS 

; Fonctions standards 

Couper LEA HandleTexte,A6 
MOVEL  (A6),-SP) 
_TECut 

Couper0 BRA Fincontrole 

Copier LEA HandieTexte,A6 
MOVEL  (A6),-(SP) 
_TECopy 
BRAS Couper0 

Coller LEA HandieTexte,A6 
MOVE.L  (A6),-(SP) 
_TEPaste 
BRA.S Couper0 

Effacer LEA HandieTexte,A6 
MOVE.L  (A6),-(SP) 
_TEDelete 
BRAS Couper0 

; Constantes et tampons 

NombPolices DC 0 

PoliceSelec DC 0 

NumRefPolices DCB 40,0 

NombTailles DC 0 

TailleSelec DC 0 

NumTailles DCB 20,0 

Apparence DC 0 

itemHit DC 0 

ValeurCti DC 0 

HauteurCarac DC 0 

EventRecord DCB 8,0 

DialogPtr DCL 0 

HandieTexte DCL 0 

HandiePolices  DC.L 0© 

HandleTailles DCL 0 

HandleCti1 DCL 0 

HandleCti2 DCL 0 

HandleCti3 DCL 0 

HandieOK DCL 0 

HandieStand DCL 0 

HandieGras DCL 0 

Handieltal DCL 0 

HandieSoul DCL 0 

HandieRelief DCL 0 

HandieOmbre DCL 0 

HandieArt DCL 0 

WhichControl DCL 0 

PosMouse DCL 0 

HandleScrap DCL 0 

RectDial DC 50,100,281,490 

RectTexte DC 7,7,119,377 

FAITES 





Fermez les fenêtres ! 


Julien Thomas 


La version 2.0 du Basic Microsoft 
permet la gestion des fenêtres, donc 
leur fermeture. Cependant, trois fe- 
nêtres échappent à la règle : les deux 
fenêtres de List” et la fenêtre de 
commande. Il est en effet impossible 
de fermer ces trois dernières depuis 
un programme Basic. Nous avons 
trouvé cela fâcheux car, si ces fené- 
tres ne sont pas fermées avant le 
début d'exécution du programme, 
l'utilisateur final peut les sélectionner, 
les déplacer et les fermer, ce qui a 
pour effet d'affecter la présentation 
du programme. 


La solution consiste en l'emploi de la 
petite routine ici proposée, qui, pla- 
cée en début de programme, efface 
toutes les fenêtres, une par une, jus- 
qu'au nettoyage” complet de 
l'écran. La méthode utilisée est sim- 
ple : on appelle une routine du sys- 
tème qui retourne un pointeur sur la 
fenêtre située au premier plan, s’il 
n'y à pas de fenêtre (donc pas de 
pointeur), on revient au Basic, sinon, 
on appelle une seconde routine du 
système qui efface la fenêtre, et ainsi 
de suite... = 


Source de la routine d'effacement des fenêtres 


0000 .Trap _FrontWindow 
0000 .Trap _HideWindow 
0000 

0000 42A7 Boucle  CLR.L 

0002  Ag24 _FrontWindow 
0004 2E1F MOVE.L 

0008 6706 BEQ.S 

0008 2F07 MOVE.L 
000A  A916 _HideWindow 
000C 60 F2 BRA.S 

000E 4E75 Retour RTS 


$A924 
$A916 


(SP) 


je 
<a 


7 


Installation 


de la 


routine de 


suppression des 
fenêtres dans un 
programme Basic 


DEFINT A-Z 
DIM C(7) 
" Data pour la routine 


DATA &h42A7,&hA924,8&h2E1F 
DATA &h6706,&h2F07,&hA916 
DATA &h60F2,&h4E75 

‘Implantation de la routine 

FOR 1=0 TO 7:READ C{(I):NEXT 

" Appel de la routine (adresse dans A!) 


Al=VARPTR(C(0)):A! 
10 GOTO 10 





; Réserve 4 octets au sommet de la pile pour le pointeur 


; Retourne un pointeur sur la fenêtre située au premier plan 


(SP)+,D7 
Retour 
D7,-(SP) 
: Efface la fenêtre 
Boucle 
; Retour au Basic 


; Retour au début pour fenêtre suivante 


; Le résultat est dépilé et placé dans D7. Si le contenu de D7 
; est égal à 0, il n'y a plus de fenêtre à l'écran. 
; Place le pointeur sur la fenêtre au sommet de la pile 





Etrange accessoire ! 


Evelyne Gorin 


Nous vous proposons un petit acces- 
soire (que vous pourrez trouver sur 
la disquette Mac 19) qui, une fois 
lancé, ne peut plus être arrêté. En 
effet, le fait de passer d'une applica- 
tion au ”Finder”, ou du ‘Finder’ à 
une application, ne perturbe absolu- 
ment pas son fonctionnement. En 





Ouv-Entr 
Ouv-Entr 
Ctr-Entr 

Ouv-Entr 
Ouv-Entr 


38888 


STRING FORMAT. 2 


dehors de cela, et mis à part son DC 5" 
côté amusant, si d'aucun trouve un 
quelconque intérêt pratique à cette Buffer DC 0 
réalisation, nous vous serions recon- 
naissants de nous le faire savoir ! Ouv MOVEQ  #0,D0 
te) RTS 
LA 
5'.Asm Ctr  MOVEML A0-A2,-(SP) 
LEA Buffer,AO 
.Trap _HideCursor  $A852 MOVEA.L #$7A700,A1 
.Trap _ShowCursor $A853 MOVE #63,D3 
__HideCursor 
Entr DC $6400 BO MOVE #19,D0 
DC 300 CLR Di 
DC 0 Bi MOVE.B  O({A1,D1),(A0) 
DC 0 MOVEA.L A1,A2 
50 








MOVEQ  #62,D2 

B2 MOVE.B  1(A2,D1),0(A2,D1) 
ADDQL  #1,A2 
DBRA D2,B2 
MOVE.B  (A0),63(A1,D1) 
ADD #64,D1 
DBRA D0,B1 
DBRA D3,B0 
_ShowCursor 
MOVEM.L (SP)+,A0-A2 
BRA.S Ouv 

5".Link 

[ 

5'Rel 

$ 

5°.R 

5'Rsre 

TYPE DRVR = PROC 

5',29 

5' 
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SL 2|Le système de développement 68000 


LS 


D 


Le système de développement 68000 est enfin 
disponible ! Comme nous l'attendions tous avec 
beaucoup d'impatience, une petite présentation 
s'impose. 


Physiquement, le système est composé de deux 
disquettes, d'un manuel de référence du 
programmeur en 68000, du manuel du système 
de développement et, enfin, d'un câble destiné à 
relier le Mac à un second Mac ou à un Lisa. Pas 
de panique... le système fonctionne avec un seul 
Macintosh 128 ou 512Ko, avec ou sans lecteur 
externe (un second lecteur est toutefois 
recommandé, pour une raison de confort 
évidente). Le second Mac (ou Lisa) est 
seulement requis pour l'utilisation d'un "super 
debugger". Le système est livré en langue 
anglaise, et nous ne savons pas encore si une 
version française sera rapidement disponible. 


Les disquettes 


La première disquette (baptisée MDS1) 
contient, en plus du dossier système, l'éditeur, 
l'assembleur, le "linker”, "l'executive" (difficile 
à traduire !), RMaker et PackSyms. 


L'éditeur 


Il s'agit d'un éditeur PR page "Disk based" 
(donc pas de problèmes avec un Mac 128, les 
accès disquettes seront seulement plus fréquents 
qu'avec un 512) qui ne dépaysera personne 
puisque son mode de fonctionnement est 
semblable à celui de MacWrite; il supporte donc 
les désormais classiques "Copier, Couper, 
Coller”, autorise le choix de la police de 
caractères ainsi que sa taille. Le choix du style 
(gras, italique,etc. ) n'est pas permis, puisqu'il 
n'est d'aucun intérêt pour ce type d'application. 
La police non proportionnelle Monaco", très 
peu employée en traitement de texte, se révèle 
être ici la plus lisible et, du même coup, la 
moins fatiguante. Cet éditeur est déjà employé 
par "MacAdvantage” et nous aurons 
certainement l'occasion de le rencontrer souvent, 
puisqu'il est fourni pratiquement gratuitement 
par Apple aux développeurs de langages 
informatiques qui en font la demande. 


L'assembleur 


Cet assembleur est à la hauteur des possibilités 
du MC 68000 : directives nombreuses, 
établissement de macro- instructions aisé, etc. 
et même comportement "intelligent" : si vous 
placez, dans le source, le code mnémonique 
"ADD.L #4,D0", qui produit le code machine 
$D1BC $0000 $0004 (soit trois mots ou encore 
six octets), il sera automatiquement remplacé 
par "ADDQ.L #4,D0", qui produit le code 
$5880. Le résultat est le même, mais avec cette 
fois seulement deux octets. 


Un seul reproche à faire à cet assembleur : il ne 
produit pas un code objet directement 
exécutable; pour cela, il faut absolument passer 
par le "Linker". Si cela n'a pas d'importance 
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pour une utilisation normale (écriture d'une 
application) il n'en va pas de même lorsque l'on 
écrit une routine destinée à être utilisée depuis 
un programme Basic car, dans ce cas, il est 
nécessaire de calculer soi-même certains 
branchements (l'assembleur ne calcule pas les 
branchements ‘vers le bas"). 


Le "linker" 


Il transfome le code objet relogeable produit par 
l'assembleur en une application. Si besoin est, 
il se charge aussi de la connection de modules 
assemblés séparément. C'est aussi lui qui 
autorise l'établissement des "signatures"; par 


exemple : APPL TEXT (voir l'article 
"Modification des informations pour le Finder”, 
dans le précédent numéro de Pom's). 

RMaker 


Le Macintosh utilise des "ressources" pour la 
définition des fenêtres, les contrôles, les menus, 
les chaînes de caractères, les icônes, etc... En 
somme, tout ce qui n'est pas du code exécutable 
par le processeur (bien que l'on puisse aussi 
trouver du code 68000 dans un ‘fichier 
ressource"). Ces définitions peuvent aussi être 
incluses dans le source; c'est la méthode 
employée par l'accessoire "Lucy". Le principe 
des ressources est intéressant pour deux raisons 
: si un programme doit être commercialisé dans 
plusieurs pays, les messages et menus peuvent 
être adaptés (avec un éditeur de ressource) à la 
langue locale,et ce sans qu'il soit nécessaire de 
modifier le code objet. De plus l'établissement 
de ressources est très simple puisque l'on met à 
notre disposition un ‘compilateur de 
ressources". Nous avons cité "RMaker”. 

Par exemple, pour créer une ressource destinée à 
la définition d'un menu, il suffit d'établir avec 
l'éditeur une liste qui pourrait ressembler à : 
TYPE MENU 

1 

Menu général 

Début 

Bof 

Fin 

1 correspond à l'identificateur du menu, "Menu 
général" correspond au titre (qui apparait dans la 
barre des menus), le reste se rapporte aux trois 
articles du menu. Simple non ? 


Executive 


"Executive" est un utilitaire extrêment Pratique 
bien que très simple. Lorsque l'on écrit une 
application, il faut passer par plusieurs étapes : 
édition, assemblage, "linkage", compilation des 
ressources. Executive autorise une exécution 
automatique du processus, ce qui permet un 
gain de temps appréciable. De plus, 
l'enchaînement des tâches peut être 
conditionnel : par exemple, on peut décider 
qu'après l'assemblage, le "linker” sera appeler en 
cas de succès (assemblage sans erreur, de 
syntaxe ou autre), alors que la main sera passée 
à l'éditeur dans le cas contraire. 





Cécile Derrien 


A noter qu'il est aussi possible d'appeler une 
application depuis une autre par l'intermédiaire 
du menu "Transfert", qui agit un peut comme le 
"Switcher” pour Mac 512Ko. 


PackSyms 


Cet utilitaire permet d'obtenir des fichiers de 
symboles (TOTO EQU $23, GAGA EQU 
TOTO+4, etc...) sous une forme compactée. 
Ceci permet de gagner de la place en mémoire, 
sur les disquettes, et aussi d'accélérer les 
traitements. 


La seconde disquette (MDS2) contient des 
fichiers de symboles, des exemples de 
programmes en assembleur 68000, et enfin les 
"Debuggers". 


Fichiers de symboles 


Les fichiers de symboles sont prévus pour être 
utilisés depuis un source (avec la directive 
INCLUDE) et contiennent les "Traps", les 
adresses du système, les décalages par rapport à 
la base des différents tableaux ou tampons, les 
équivalences pour les codes d'erreur générés par 
le système d'exploitation, etc... L'utilisation de 
ces fichiers est fortement conseillée car, outre le 
gain de temps apporté, elle permet une 
amélioration de la lisibilité des sources, ce qui 
n'est pas désagréable. 


Les exemples 


Le système est fourni avec quelques exemples 

propres à faciliter les premiers pas du 

développeurs en assembleur 68000. Parmi 

ceux-ci, nOUS trouvons : 

*+ gestion d'une fenêtre; 

* impression depuis une application; 

+ un petit programme utilisant quelques 
routines “"QuickDraw"'; 

* un accessoire de bureau "minimum" (il 
affiche simplement une fenêtre). 

Ces exemples sont quelque peu limités, mais 

permettent néanmoins de débuter. Pour aller 

plus loin, lisez Pom's ! 


Les "debuggers" 


Trois programmes de mise au point sont à notre 
disposition. Le premier, baptisé MacsBug, 
fonctionne sur un Mac 128Ko. Le second 
(Maxbug) est prévu pour un 512Ko. Le 
troisième (MacDB) est le plus puissant 
(certainement le plus puissant jamais rencontré 
sur un micro-ordinateur) mais requiert 
l'utilisation d'un second Mac ou d'un Lisa. 


Inside Macintosh 


Nous réclamions une documentation technique 
depuis la sortie du Macintosh. Nous ne savons 
pas si le fait d'avoir ‘’ralé” dans de précédents 
articles y est pour quelque chose, mais elle 
arrive ! Inside Macintosh est un ouvrage 
d'environ 1800 pages indispensable à qui veut 
programmer sérieusement le Mac. 


; SRE 
RÉNPENIPNPENETSE 








Création de caractères 


Jean-Pierre Vinter 


Avec ce nouvel utilitaire, les posses- 
seurs d’un Apple Il muni d’une im- 
primante de la série Imagewriter, 
vont enfin pouvoir créer et exploiter 
commodémment tous les caractères 
qu'ils désirent. S'ils possèdent, en 
outre, la disquette ”’Basic Purplesoft” 
distribuée avec la carte Chat 
Mauve” ils vont, de plus, disposer de 
police de caractères très diverses (Ita- 
liques, Gothiques ou Grecques), di- 
rectement disponibles et exploitables 
par l'imprimante. 
Ce programme comble une lacune 
du ”Tool kit Imagewriter”’ qui ne per- 
met que l’utilisation de caractères 
courants réduits et décalés vers le 
haut, ou vers le bas. 
Il est composé d’un programme de 
lancement et de gestion écrit en 
Basic qui fait largement appel à diffé- 
rents niveaux d’une routine assem- 
bleur dont les fonctions sont : 
e la création 
e la modification 
e l'ajout 
e la suppression des caractères en 
mémoire. 


Le programme Basic pouvant, dès 
lors, les envoyer sur imprimante ou 
les sauvegarder pour une future utili- 
sation. 


Codage et décodage des 
caractères 

A l’origine du programme Basic, se 
posait le problème suivant : comment 
récupérer facilement un jeu de carac- 
tères graphiques existant sur les dis- 
quettes Chat Mauve” et le rendre 
exploitable par ’Imagewriter”. 

Bien que le principe soit semblable, 
le codage d’un caractère se fait diffé- 
remment selon qu'il est utilisé par la 
haute résolution graphique ou par 
l'interface imprimante. Ainsi, à titre 
d'exemple, si l’on veut coder un 
"A”, sur une largeur de 8 dots, il se 
représentera par la matrice binaire 
désignée ci-dessous : 









jo[ofoli}1}1f0f0}5 
pofolifilof1fifos 
jo[of1[o[olof 11014 
jofififolofofif fe 
jofifipipififpifilre 
Lofi[110fo/of1f1lce 
jofififoloofif fes 
[o[o[o[ofofofofof 


00 7D 78 13 11 13 7D 78 






Cette matrice binaire sera codée en 

hexadécimal : 

e de droite à gauche et de bas en 
haut s’il s’agit de la haute résolu- 
tion graphique : 00 C6 C6 FE C6 
44 6C 38 

e de bas en haut et de gauche à 
droite s’il s’agit de l'interface im- 
primante soit : 00 78 7D 13 11 13 
77 78 


En outre, dans le cas de l'impri- 
mante, les 8 octets ainsi codés de- 
vront être précédés de 2 codes : 

e le premier caractérisant la touche 
concernée du clavier, ici un A” 

e le second représentant sa lon- 
gueur, ici la représentation du chif- 
fre 8”. 

Le renversement de la matrice, né- 
cessaire pour la traduction Chat 
Mauve - Imagewriter”, ne pouvait se 
faire qu'en langage machine. En 
effet, la solution Basic qui consistait à 
lire les octets, les convertir en binaire, 
les charger dans un tableau que l'on 
lisait différemment avant de les reco- 
der, était trop gourmande en temps, 
près de 10 minutes pour 100 carac- 
tères. 
Pour être complet sur ce sujet, rap- 
pelons également qu’un caractère 
’Imagewriter” est en fait constitué 
par une matrice de 9 aiguilles de 
haut, numérotées de 1 à 9 et que la 
9ème aiguille est utilisée pour le sou- 
lignement. L'utilisateur peut indiffé- 
remment choisir les rangées 1 à 8, 
ou 2 à 9, selon qu'il code la largeur 
des caractères par une lettre majus- 
cule ou minuscule. La largeur de la 
matrice est de 16 aiguilles au maxi- 
mum, les codes correspondants sont, 
par convention : 

e A” pour 1, ”’B" pour 2, …, ‘P” 
pour 16 (dots hauts de 1 à 8) 

e ’a” pour 1, ’b” pour 2, …, ‘p” 
pour 16 (dots bas de 2 à 9) 


L'alphabet standard a une largeur 
constante de 8 dots, il utilise les ran- 








gées 1 à 7 pour les lettres majuscules 
et 3 à 7 pour les minuscules, les ran- 
gées 8 et/ou 9 étant réservées aux 
lettres qui se prolongent vers le bas 
(ç, 9, j, p, q et y). 


Chargement de 
l'imprimante 


Un problème a dû être résolu : 

Il était nécessaire d’utiliser un lan- 
gage d'assemblage pour envoyer les 
codes à l'imprimante. En effet, l’Ap- 
plesoft positionne le bit de poids fort 
des octets à 1 et un PRINT ‘Carac- 
tère” ou par un PRINT CHR$ 
(code décimal), pour la création de 
caractères, entraîne un soulignement 
gênant, les dots 8 ou 9 de la matrice 
étant parasités par ces PRINTSs. Mais 
il faut également que l'imprimante 
reconnaisse tous les bits qui vont lui 
parvenir. De ce fait, pour être utilisa- 
ble, chaque fichier devra commencer 
et finir par les séquences d'ESCAPE 
suivantes : 


e au début: ESC Z CONTROLà - 
(1B 44 00 20 en hexa), pour re- 
connaître le 8ème bit 

e à la fin: ESC D CONTROLà - 
(1B 5A 00 20 en hexa), pour 
ignorer le 8ème bit, qui est l’utili- 
sation normale de l'imprimante en 
mode texte. 


Le caractère ”’-” représente l’espace. 


Présentation du 
gramme Basic 


pro- 


Place mémoire 


L'instruction HIMEM: 16383 réserve 
la mémoire à partir de l'adresse 
hexadécimale $4000. C'est à partir 
de cette adresse que sera stockée la 
police de caractères à créer ou à trai- 
ter. Si une police est composée de 
95 caractères (codes ASCII de 32 à 
127), tous directement adressables 
par le clavier et ayant chacun une 
largeur maximale de 16 dots, l’occu- 
pation mémoire serait, au plus, un 
peu supérieure à 1,5 Ko (16+2 
octets x 95). 

La routine en langage machine est 
implantée à partir de l'adresse $6000 
et occupe 858 octets, elle ne peut 
pas être parasitée par la mémoire ca- 
ractère. 


Menu 

Le menu principal offre les possibili- 
tés suivantes : 

1— Créer un nouveau fichier; 

2— Lui ajouter de nouveaux caractè- 
res; 
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3— Afficher ou modifier les caractè- 
res d’un fichier; 

4— Récupérer un jeu de caractères 
5— Sauvegarder et/ou charger un fi- 
chier sur imprimante. 

L'option 4 est spécifique aux fichiers 
"Chat Mauve”. Elle assure la récupé- 
ration et la conversion des 95 carac- 
tères directement adressables (codes 
ASCII 32 à 127). Pour éviter les 
confusions de fichiers, le programme 
ajoute lui-même les suffixes ”.FONT” 
relatifs aux polices de caractères 
Chat Mauve” et ”. CHAR” pour les 
fichiers qu'il a lui-même créés. L’utili- 
sateur se contentera d'indiquer la 
première partie du nom du fichier, 
par exemple ”’GOTHIC” pour des 
caractères gothiques. 


Options 


La différence essentielle entre les op- 
tions 2 et 3, ajout et modification de 
données, tient dans le fait que, dans 
l'option 2, le programme ajoute une 
nouvelle forme à la fin du fichier, 
alors que dans l’option 3, si une 
forme est définie avec un code carac- 
tère déjà existant, celle-ci sera, après 
confirmation, éliminée physiquement 
du fichier, puis remplacée par la nou- 
velle forme. 

L'option 2 sera donc, en principe, 
choisie par un utilisateur qui n'aurait 
pas fini de rentrer tous les caractères 
qu'il s'était proposé de créer. En fin 
de création (option 1) ou d’ajouts de 
formes à un fichier (option 2), une 
réponse NON à la question ‘’Nou- 
velle forme ?” renvoie à l'option 3, 
examen / modification qui seule per- 
met l'accès au sous-menu, sauve- 
“us l’impression de fichier (option 


L'option 3 appelle un caractère exis- 
tant dans le fichier, que ce soit pour 
le consulter ou pour le modifier. Un 
menu permet de le supprimer du fi- 
chier, de le modifier ou de passer à 
un autre caractère. Notons que RE- 
TURN en réponse à la demande du 
code du caractère, permet de faire 
apparaître l'enregistrement qui suit 
celui qui vient d'être appelé ou le 
premier caractère du fichier (si aucun 
n'avait encore été appelé ou si une 
suppression venait d'être effectuée). 
Si une modification a été faite (sous- 
option 2), il est possible de mémori- 
ser la nouvelle forme, soit en conser- 
vant son code, soit sous un nom de 
code différent. Remarquons qu'il est 
aussi possible de créer de nouveaux 
caractères avec l'option 3. Il suffit 
d'appeler un caractère déjà existant 
dans le fichier, d’éventuellement le 
modifier et de le stocker en mémoire 
sous un nom de code encore inexis- 
tant. Ainsi, à titre d'exemple : 

— une utilisation judicieuse de l’op- 
tion 3 pour des français serait, après 
récupération d’un fichier “Chat 
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Mauve” non accentué, d'appeler le 
’e”, de lui ajouter un accent et de le 
stocker sous un nom de code diffé- 
rent, ‘’é” ou ’è”.… 

— De même, si l’on veut créer une 
frise décorative, on appellera et on 
modifiera un caractère qui ne sera 
pas utilisé dans le texte, caractère 
que l’on stockera, dans ce cas, avec 
le même nom de code. 


Gestion d’écran 


Qu'il s'agisse de création ou de mo- 
dification de formes, l'affichage est 
matérialisé sur l'écran par un cadre 
de 8 cases de haut sur 16 de large, 
bordé en haut et en bas par les lettre 
A à P, majuscules et minuscules, 
pour rappeler la convention du code 
largeur. Le curseur se meut librement 
à l'intérieur du cadre au moyen des 
4 flèches disponibles sur l'Apple //e 
(pour l'Apple II+, on utilisera les flè- 
ches gauche et droite et les habituels 
CTRL-J et CTRL-K). Une pression 
sur la barre d’espacement permet de 
mettre à 1 ou à 0 le bit de représen- 
tation d’un dot du caractère, cette 
action étant visualisée par une étoile 
ou un espace sur l'écran, qui assure 
une image très agrandie de ce que 
sera le caractère imprimé. Une op- 
tion supplémentaire, qui n'apparaît 
pas à l'écran, est accessible au 
moyen de la touche ‘’?”. Elle permet 
des décalages de la forme affichée 
sur l’écran, selon les 4 directions ha- 
bituelles (haut, bas, droite et qgau- 
che). 

Une pression sur la touche 0” per- 
met de sortir du mode création — 
modification. Il sera alors demandé 
successivement les codes caractère et 
largeur de la forme. La largeur déter- 
mine le nombre de colonnes qui se- 
ront interprétées, à partir de la co- 
lonne 1. Elle est laissée au libre choix 
de l'utilisateur qui peut donc ne mé- 
moriser qu'une partie de l'écran. La 
touche RETURN en réponse à une 
des deux questions, code ou largeur, 
renvoie l'affichage du caractère. 


Sauvegarde et chargement 


L'envoi vers l'imprimante nécessite 
que celle-ci soit raccordée et mise 
sous tension avant l'envoi des infor- 
mations. Un test optionnel permet 
d'imprimer les caractères dans les 2 
modes, standard et police de caractè- 
res étrangère. La commutation des 2 
modes se faisant par la séquence 
d'ESCAPE suivante : 


e caractères créés : ESC ’ (1B 27 en 
hexadécimal) 

e caractères standards : ESC $ (1B 
24 en héxadécimal) 


La sauvegarde ne nécessite que la 
réponse à la question ‘Nom du fi- 
chier”. Aucun contrôle n'étant effec- 
tué au niveau du DOS, il conviendra 
de faire attention à ne pas donner le 
nom d’un fichier déjà existant sous 


peine de son remplacement sur la 


disquette. Cette option représente la 


dernière opération à effectuer sur 


une police de caractères. Après exé- 


“cution, l'utilisateur est renvoyé au 


menu principal, dont l'option 0 cons- 
tite la sortie normale du pro- 
gramme. Il pourra aussi, traiter ou 
créer d’autres fichiers ou rappeler un 
précédent fichier de travail, si celui-ci 
a été sauvegardé. 


Annexes 


Les listings des programmes, Basic et 
Assembleur sont présentés ci-après. 
Pour ceux qui ne disposeraient pas 
de carte Chat Mauve, figure égale- 
ment ci-après un jeu de caractères 
créé à leur attention. Il s’agit d’une 
police de caractères français, accen- 
tués, inspirée des caractères de type 
BYTE. Ils devront être chargés en 
mémoire à partir de l’adresse $4000, 
la longueur du fichier est de 865 
octets ($361 en hexadécimal). Une 
fois le fichier sauvegardé sous un 
nom choisi, il pourra être envoyé 
vers Imagewriter au moyen de l’op- 
tion 5 du programme. (é séquence 
d'ESCAPE de fin de fichier n’a pas à 
figurer dans le fichier, elle est assurée 
par cette option du programme. La 
routine en Assembleur a été conçue 
de façon très modulaire et ne néces- 
site pas d'explications particulières. 
Le listing du programme source 
comporte pour chaque module : 

— un titre en commentaire qui rap- 
pelle sa fonction; 

— un label qui est le même que celui 
qui figure en tête du programme 
Basic. 


N.D.L.R. : Afin que l'impression des 
polices de caractères fonctionne sur 
l'imprimante DMP , il faut : 

e envoyer, en début de programme, 
le code de neutralisation de l’inter- 
face 

e rajouter en ligne 121 du pro- 
gramme Basic les POKESs néces- 
saires, pour obtenir dans le code 
objet de SAISIE : 
618A : 20 ED FD 60 


Programme 
SAISIE.S 

(Assembleur MERLIN) 

1 KAKRRRRÉRÉRERÉERÉÉÉRÉÉÉÉÉ RÉ RÉ 

2 * PRGRM DE TRAITEMENT DE 

3 * CARACTERES IMAGEWRITER 

4 KAKRRRÉRÉRÉRÉRÉRÉRRÉRÉÉÉÉERÉÉÉÉ KR 

5 ORG $6000 

6 ZERO = $00 

7 UN = $01 

8 DEP = $06 

9 SIX = $06 





LA 
£ 
+ 4 


ss ge 
ER 12 


à tte 
APE 


1 # 


AE AMAR A ie PA 
Le ERA EN Le E 4 





SEPT = $07 
HUIT = $08 
ARR = $08 
NEUF $o9 
DIX = $10 
LON = $18 
ASCI = $18 
CARG = $19 
H _- $24 
V = $25 
ESC = $1B 
BLAN = $AO 
STAR = $AA 
ADB = $28 
CALC = $300 
COMPAR = $308 
REGIS = $309 
VTAB = $FC22 
BASCAL = $FBC1 
He he he ke ke ee ee A À 
POI JSR VTAB 
LDA V 
JSR BASCAL 
LDA ADB 
CLC 
ADC H 
STA ADB 
LDY #ZERO 
RH K RH Re he ee OH A K 
LDA  (ADB),Y 
CMP  #STAR 
BNE PO2 
LDA  #BLAN 
STA (ADB),Y 
RTS 
HRK HR R RAR HRK A D À 
PO2 LDA  #STAR 
STA (ADB),Y 
RTS 
AR RH HR He D D De D 
LA FIN CONVERSION 


KKKRRÉRÉ RÉ RÉ ÉKÉÉ KR KR RÉ RE 


* CHARGEMENT ESCAPE IMPRIM 


P10 JSR SP10 
HRK He HA 
p20 LDY  #ZERO 

LDX #ZERO 

LDA $06 

STA  (ARR),Y 

INY 

LDA SEPT 

STA  (ARR),Y 

INY 
OR R RH HA 
p21 LDA CALC,X 

STA  (ARR),Y 

INX 

INY 

DEC LON 

LDA  LON 

CMP  #ZERO 

BEQ P22 

JMP P21 
RORR KR R RAR ARR D D D D À 
P22 CLC 


75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 


126 
127 


128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 


TYA 
ADC 
STA 
LDA 
ADC 
STA 
RTS 
KKKHRRRÉÉÉKÉÉ EEK ÉÉÉ KR KE RÉ K K KR 
* FIN CHARGEMENT FORME 
* ESCAP FIN FICHIER/ADRESS 
* ENVOI VERS PRINTER 
KKKKKRRÉRRÉEÉRÉEÉÉÉÉ RÉ KE KE KR KR 
P30 LDY  #ZERO 
LDA ARR 
STA $4000 
LDA NEUF 
STA $4001 
LDA #$04 
STA  (ARR),Y 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA #$20 
STA  (ARR),Y 
KKRRERRERÉERRRRÉRÉÉÉÉÉÉÉÉÉK 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
STA 
LDA 


ARR 
$4000 
NEUF 
#ZERO 
$4001 


#ESC 
(ARR) ,Y 


#$44 
(ARR) ,Y 


#ZERO 
(ARR) ,Y 


ARR 
#$05 
ARR 
NEUF 
#ZERO 
NEUF 
#502 
DEP 
#$40 
STA SEPT 
JMP SP1 
ARRR KA HR KR HR MR A À RE 
* LIT ECRAN ET CHARGEMENT 
= EN $300 
AR RAR HRK KR RH RH A 
P40 LDA #$FF 
STA  LON 
LDA #$0B 
STA H 


KAKRÉARX RÉ EX RÉ RE KR À AR 


P41 LDA #ZERO 
STA $1lA 
LDY  #ZERO 
#HUIT 
#$10 
STA V 
AR HRK HR D HE XX 
p42 ASL $lA 
LDA V 
BASCAL 





ADC H 
ADB 
#ZERO 
(ADB),Y 
#STAR 
P43 
$1A 
P43 DEC V 
#ZERO 
BNE P42 
RH H KR KR Re AK Xe 
INC H 
INC 
LDA 
CMP 
BEQ 


LON 
#$10 
P44 


$1A 
CALC,X 
P41 
P44 RTS 
KXKR RÉ RÉ RÉ KE KR he Xe 
* PROGRAMME CHAT MAUVE 
* CHARGE ADRESSE ET CONST 
KA K RÉ KA KR ÉK KR À À À ke 
P50 LDA  #ZERO 

STA DEP 

LDA #$41 

STA SEPT 

LDA #$1F 

STA ASCI 

LDA #$47 

STA CARG 

JSR SP10 
KXKAKKRKRARÉÉÉÉÉÉÉ KE KE KE EX 
P51 LDY  #ZERO 
P52 LDA (DEP),Y 

STA CALC,Y 

INY 

CPY #HUIT 

BNE P52 
RKRRRRRRRRÉÉÉÉÉÉÉÉÉ KA É ÉK À 
LDA #$80 
STA  COMPAR 
LDA  #ZERO 
STA REGIS 
LDX  #ZERO 
LSR COMPAR 
LDY  #ZERO 
ASL REGIS 
LDA $300,Y 


AND COMPAR 
BEQ PS5 


INC REGIS 
INY 
CPY 
BNE 
LDA 
STA 
INX 
CPX #SEPT 
BNE P53 


KRRRRÉRRRRÉÉRÉRÉERRÉEEÉÉÉÉÉÉÉ RÉ 


LDY  #ZERO 


P53 


P54 


P55 
#HUIT 
P54 
REGIS 
$310,x 
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205 INC ASCI 

206 LDA ASCI 

207 STA  (ARR),Y 

208 INY 

209 LDA CARG 

210 STA  (ARR),Y 

211 LDX #SIX 

212 INY 

213 KXKKKkÉ RÉ KE ke ke ke ke 
214 P56 LDA $310,X 

215 STA  (ARR),Y 

216 INY 

217 DEX 

218 CPY #NEUF 

219 BNE P56 

220 kKRkÉRÉ RÉ RÉ ÉÉ RE KR k ke À ke 
221 LDA DEP 

222 CLC 

223 ADC #HUIT 

224 STA DEP 

225 BCC P57 

226 INC SEPT 

227 KKÉRRRRÉAEX EX KE ke 
228 P57 LDA ARR 

229 CLC 

230 ADC  #NEUF 

231 STA ARR 

232 BCC P58 

233 INC NEUF 

234 LKR RÉÉXkRKE k k k RÉ KE Ke À 
235 P58 LDA ASCI 

236 CMP #$7E 

237 BNE P51 

238 LDA #$61 

239 STA $4000 

240 LDA #$43 

241 STA $4001 

242 RTS 

243 KKARKRKRRRRRÉERÉRÉRÉÉRÉRRÉRÉRÉÉÉXÉÉ 
244 * FIN PGM - ROUTINE CHARGT 
245 RARE KR KR RÉ A de À de À ke 
246 SP1 LDA DEP 

247 CMP ARR 

248 BNE SP2 

249 LDA SEPT 

250 CMP NEUF 

251 BEQ SP3 

252 KRRRXÉ KR KR He ke de ke ke ke à 
253 SP2 LDY  #ZERO 

254 LDA  (DEP),Y 

255 JSR SP4 

256 CLC 

257 LDA DEP 

258 ADC  #UN 

259 STA DEP 

260 LDA SEPT 

261 ADC  #ZERO 

262 STA SEPT 

263 SEC 

264 BCS SP1 

265 SP3 RTS 

266 KRRKRRÉRÉÉÉ KR K KR KR KOK KR RE ÉOR KR 
267 * BOUCLES D'ATTENTE 

268 KA KR KE HR ke A ke hd he À À À 
269 Spa TAX 
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LDY  #DIX 
CELLES ELLILIIIIIIIITT LT 
SP5 LDA $CO089,Y 
AND #DIX 
BEQ SP5 
LDA $CO89 
AND #$40 
BNE SPS 
TXA: 
STA 
STA 
RTS 


KR K KR RÉ RÉ RÉ KE ER À 


* ESC DEBUT FICHIER IMPRI 
KKKXK EEK HE RER KR KR KR AH À ke 
SP10 LDY  #ZERO 
LDA #$02 
STA ARR 
LDA #$40 
STA NEUF 
LDA #ESC 
STA (ARR),Y 
INC ARR 
LDA #$5A 
STA  (ARR),Y 
INC ARR 
LDA  #ZERO 
STA  (ARR),Y 
INC ARR 
LDA #$20 
STA (ARR),Y 
INC ARR 
LDA #ESC 
STA  (ARR),Y 
INC ARR 
LDA #$2B 
STA (ARR),Y 
INC ARR 
LDA #ESC 
STA  (ARR),Y 
INC ARR 
LDA #$49 
STA  (ARR),Y 
INC ARR 
RTS 


KKKRKRRRÉRRÉRRÉRRÉÉÉÉÉÉÉÉÉ EX RÉ 


* RECHERCHE D'UN CARACTERE 


KKRE RÉ KE KR k KE KR KE ke ke dk 


$CO88,Y 
$CO80,Y 


P60 LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 


#$0A 
DEP 
#$40 
SEPT 
HUIT 
CARG 
#ZERO 


KRKKK RÉ KR ÉOK KR RE dk RO k k À 


P61 LDA 
CMP 
BEQ 
INY 
LDA 
STA 


LDX 


(DEP) ,Y 
CARG 
P64 


(DEP) ,Y 
LON 
#$02 


RÉRKRRRRRRRÉRRÉRÉRÉÉEÉÉERRÉRÉRÉ RÉ É 


P62 DEC 


LON 


INX 
LDA 
CMP 
BEQ 
CMP #$40 
BNE P62 

HRK KR KR XX 

P63 CLC 
LDY 
TXA 
ADC 
STA : 
LDA 
ADC 
STA 
CMP 
BNE 
LDA 
CMP 
BNE 
LDA 
STA 

P64 RTS 


KKXKARÉRÉÉÉ RÉ EEK AK KR É KE KA RÉ 


* CHARGEMENT EN $300 

KKRRRRARARÉRÉRRÉRÉEÉÉÉÉÉÉÉÉÉ 

P65 LDY #$01 

LDA (DEP),Y 

STA LON 

LDX  #ZERO 

INY 

LDA 

STA 

INX 

INY 

DEC 

LDA 

CMP 

BEQ 

CMP #$40 

BNE P66 

KÉARRRRRÉÉÉÉÉÉÉÉ EX KR XX k KR 

P67 TXA 
CMP 
BEQ 


LON 
#$60 
P63 


#ZERO 


DEP 
DEP 
SEPT 
#ZERO 
SEPT 
$4001 
P61 
DEP 
$4000 
P61 
#$SFF 
HUIT 


P66 (DEP),Y 


CALC,X 


LON 
LON 
#$60 
P67 


#$10 
P68 
#ZERO 
CALC,X 





p67 
P68 RTS 


KKKRKRERRÉÉ RÉ KR KR RÉ R KR RÉ 


* AFFICHAGE CARACTERE 
KKRRRRARARRÉARÉRRÉRÉÉREXÉÉXÉÉÉÉ 
P70 LDX  #ZERO 

LDA +#$0B 

STA H 


KXKKKRKRKKÉRERERÉRÉÉÉÉ KE ÉKÉK KK 


Pr LDA #$80 
STA LON 
LDA CALC,X 
STA CARG 
LDY  #ZERO 
LDA #$10 
STA V | 


KAKAKXRRRRARARRRRRRRRÉRÉRRXÉÉ : 


55 


400 Pp72 LDA V 
401 JSR BASCAL 
402 LDA ADB 
403 CLC 
404 ADC H 
405 STA ADB 
406 LDA CARG 
407 AND LON 
408 BEO P73 
409 LDA #STAR 
410 JMP P74 
411 P73 LDA  #BLAN 
412 P74 STA  (ADB),Y 
413 DEC V 
414 LSR  LON 
415 LDA  LON 
416 CMP  #ZERO 
417 BNE P72 
418 KRRARRRÉRRÉRÉÉRRRRRÉÉÉÉRÉÉÉÉÉ 
419 INC H 
420 INX 
421 TXA 
422 CMP #$10 
423 BNE P71 
424 RTS 
425 KKRRRRÉRÉÉÉ KR KR RÉ Re  k 
426 * SUPPRESSION D'UNE FORME 
427 KKRRRÉÉÉRÉRRÉÉÉÉÉ KR k KR KR ke 
428 P80 LDY #$01 
429 LDA (DEP),Y 
430 STA LON 
431 LDX  #$02 
432 P81 DEC LON 
433 INX 
"434 LDA  LON 
# 435 CMP  #560 
NM 236 BEQ P82 
: 437 CMP  #$40 
438 BNE P81 
Cri 439 KKRRKRRRÉRÉRÉRRÉÉÉÉERÉÉERERÉRÉÉ 
440 pe2 CLC 
NU 441 TXA 
F 442 ADC DEP 
À 443 STA ARR 
La 444 LDA SEPT 
445 ADC  #ZERO 
446 STA NEUF 
Récapitulation 
SAISIE.OBJ 
6000- 20 22 FC A5 25 20 C1 FB 
6008- A5 28 18 65 24 85 28 AO 
6010- 00 B1 28 C9 AA DO 05 A9 
6018- AO 91 28 60 A9 AA 91 28 
6020- 60 20 A3 61 AO 00 A2 00 
6028- A5 06 91 08 CB A5 07 91 
6030- 08 C8 BD 00 03 91 08 EB8 
6038- C8 C6 18 A5 18 C9 00 FO 
6040- 03 4C 32 60 18 98 65 08 
6048- 8D 00 40 A5 09 69 00 8D 
6050- 01 40 60 AO 00 A5 08 8D 


447 LDY  #ZERO 

448 RAR KE eh he he ke ke ke 
449 LDA ARR 

450 CMP $4000 

451 BNE P83 

452 LDA NEUF 

453 CMP $4001 

454 BNE P83 

455 JMP P84 

456 *x x xxx xx KE KA EE KR XX XX À À 
457 P83 LDA (ARR),Y 

458 STA  (DEP),Y 

459 CLC 

460 LDA DEP 

461 ADC #$01 

462 STA DEP 

463 LDA SEPT 

464 ADC  #ZERO 

465 STA SEPT 

466 CLC 

467 LDA ARR 

468 ADC  #UN 

469 STA ARR 

470 LDA NEUF 

471 ADC  #ZERO 

472 STA NEUF 

473 CMP $4001 

474 BNE P83 

475 LDA ARR 

476 CMP $4000 

477 BNE P83 

478 KkRRRKRKRÉRÉREKRERÉRERÉRRÉRRÉRÉRÉÉÉ 
479 P84 LDA DEP 

480 STA $4000 

481 LDA SEPT 

482 STA $4001 

483 RTS 

484 KRKRRRRKRRÉRÉÉÉÉÉÉÉ KR KR KR 
485 * DECALAGE HAUT 

486 KAKRRRKRRRÉARRÉRRÉRÉRÉERRÉRRÉRÉEÉRÉÉ 
487 LDX  #ZERO 

488 S10 LDA CALC,X 

489 LSR 

490 STA CALC,X 

491 INX 

492 CPX #$10 

493 BNE S10 

6058- 00 40 A5 09 8D 01 40 A9 
6060- 04 91 08 C8 A9 1B 91 08 
6068- C8 A9 44 91 08 C8 A9 00 
6070- 91 08 C8 A9 20 91 08 18 
6078- A5 08 69 05 85 08 A5 09 
6080- 69 00 85 09 A9 02 85 06 
6088- A9 40 85 07 4C 66 61 A9 
6090- FF 85 18 A9 O0B 85 24 A9 
6098- 00 85 1A AO 00 A2 08 A9 
60A0- 10 85 25 06 1A A5 25 20 
60A8- C1 FB 18 A5 28 65 24 85 
60B0- 28 AO 00 B1 28 C9 AA DO 
60B8- 02 E6 1A C6 25 CA EO 00 
60C0- DO El E6 24 E6 18 A5 18 
60C8- C9 10 FO 09 AA A5 lA 9D 





494 RTS 

495 ARR RÉRÉRÉÉRÉÉÉÉÉÉ 

496 * DECALAGE BAS 

497 KRRRRÉARÉARÉRÉÉRÉRÉÉÉÉÉÉ À KA É 

498 LDX  #ZERO 

499 S20 LDA CALC,X 

500 ASL 

501 STA CALC,X 

502 INX 

503 CPX #$10 

504 BNE S20 

505 RTS 

506 RRRÉÉ ER É KE KE É KR A KE 

507 * DECALAGE DROITE 

508 RARE RE KE RARE KA KA OR KR KR 

509 LDX #$0E 

510 530 LDA CALC,X 

511 INX 

512 STA CALC,X 

513 DEX 

514 DEX 

515 CPX  #ZERO 

516 BNE S30 

517 LDA CALC,X 

518 INX 

519 STA CALC,X 

520 LDA #ZERO 

521 STA CALC 

522 RTS 

523 kRRÉRÉkÉRRÉ RÉ À k ke he ke he he he he he he he 

524 *  DECALAGE GAUCHE 

525 KRkRkRÉ RÉ KE he de ke ke ke ke ke ke 

526 LDX #$01 

527 540 LDA CALC,X 

528 DEX 

529 STA CALC,X 

530 INX 

531 INX 

532 CPX #50F 

533 BNE S40 

534 LDA CALC,X 

535 DEX 

536 STA CALC,X 

537 LDA  #ZERO 

538 STA $30F 

539 RTS 

540 kRRRRRRÉR RÉ KR ke ke he ke he À À À 

60D0- 00 03 4C 97 60 60 A9 00 

60D8- 85 06 A9 41 85 07 A9 1F 

60E0- 85 18 A9 47 85 19 20 A3 

60E8- 61 A0 00 B1 06 99 00 03 

60F0- C8 CO 08 DO F6 A9 80 8D 

60F8- 08 03 A9 00 8D 09 03 A2 

6100- 00 4E 08 03 AO 00 OE 09 

6108- 03 B9 00 03 2D 08 03 FO 

6110- 03 EE 09 03 C8 CO 08 DO 

6118- ED AD 09 03 9D 10 03 E8 

6120- EO 07 DO DD AO 00 E6 18 

6128- A5 18 91 08 C8 A5 19 91 

6130- 08 A2 06 C8 BD 10 03 91 

6138- 08 C8 CA CO 09 DO F5 A5 

6140- 06 18 69 08 85 06 90 02 
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4040-00 18 20 13 OD 33 05 03 00 10 10 15 3D 07 05 05 
4050-00 08 08 1F 09 39 O1 O1 00 10 10 10 3A 05 05 05 
4060-00 08 18 09 39 03 01 07 00 28 18 2E 19 O1 O1 06 
4070-00 10 28 2B 14 02 01 06 00 10 10 13 14 02 01 06 
4080-00 38 08 08 0B 05 05 03 00 10 10 10 13 05 05 03 


6280- C6 25 46 18 A5 18 C9 00 
6288- DO DB E6 24 E8 8A C9 10 4on-00 20 36 29 33 25 08 02 00 28 18 28 09 00 08 09 
= 0 1Fr 29 
6290- DO C4 60 AO 01 B1 06 85  Vés-0o 24 34 2x 28 01 0106-00 3e 28 37 29 03 61 0? 
6298- 18 A2 02 C6 18 E8 A5 18 
62A0- C9 60 FO 04 C9 40 DO F3 40F0-00 18 20 15 OD 33 05 03 00 18 20 17 OD 35 05 05 
62A8- 18 8A 65 06 85 08 AS 07 4110-00 00 00 60 12 24 96 36 00 22 17 22 22 12 17 28 
62B0- 69 00 85 09 AO O0 AS 08 ie 2e 12 an 04 02 12 0€ 08 00 08 09 de 10 16 1e 
62B8- CD 00 40 DO OA A5 09 CD 


4140-00 18 0C 06 06 06 0C 18 00 OC 18 30 30 30 18 0C 
6198- 40 DO F2 8A 99 88 CO 99 62C0- 01 40 DO 03 4C F1 62 B1 


6148- E6 07 A5 08 18 69 09 85 
6150- 08 90 02 E6 09 A5 18 C9 
6158- 7E DO 8E A9 61 8D 00 40 
6160- A9 43 8D 01 40 60 A5 06 
6168- C5 08 DO 06 AS 07 C5 09 
6170- FO 17 AO 00 B1 06 20 8A 
6178- 61 18 A5 06 69 01 85 06 
6180- A5 07 69 00 85 07 38 BO 
6188- DD 60 AA A0 10 B9 89 CO 
6190- 29 10 FO F9 AD 89 CO 29 


6270- 28 AS 19 25 18 FO 05 A9 
6278- AA 4C 7E 62 A9 AO 91 28 


40D0-00 18 28 18 2C 1A 01 06 00 30 08 OF 31 03 O1 07 
40E0-00 18 20 11 09 33 O1 07 00 18 20 16 OD 37 01 06 


4150-00 08 2A 1T 08 1C 2A 08 00 00 18 18 3E 08 08 00 
4160-0C 10 1C 1C 00 00 00 00 00 00 00 00 3E 00 00 00 
61A0- 80 CO 60 AO 00 A9 02 85  62C8- 08 91 06 18 AS 06 69 O1 ana ea ne nn 07 00.00 02 0 04 Où 10 20 de 
61A8- 08 A9 40 85 09 A9 1B 91 62D0- 85 06 A5 07 69 00 85 07 lou 30 30 1e 23 22 22 28 00 38 37 30 JE 07 47 DE 
= 4 3 00 0 

S180= 00 6 O8 A3 :S2-91 OS'ES SEP IS AS OS ES OL OS GERS SR at mo nn eus 
61B8- 08 A9 00 91 08 E6 08 A9 62E0- 09 69 00 85 09 CD O1 40 4100-00 00 1C 1C 00 1c 1c 00 oc 10 1e lc 00 1c 1c 00 

41£0-00 30 18 OC 06 QC 18 30 00 00 00 3E 00 3E 00 00 
61C0- 20 91 08 E6 08 A9 1B 91 62E8- DO DD A5 08 CD 00 40 DO 170-008 06 0c 18 20 19 00 06 60 98 29 MnwuT 
61C8- 08 E6 08 A9 2B 91 08 E6  62F0- D6 A5 06 8D 00 40 A5 O7  éo-e0 25 2 2 ae ne Leg an en aa on ot dr 
S1D0=-08 A9 18 91 08 E6-08 A9  6éFé- 8D:01 40 60 AZ 00 BD 00 ER à @ 0 à à ee ra 
NP AE DENTS O8 0 AR RO GS ARR PASS SR nd un 

=00 1E 31 20 20 00 13 or 09 

61E0- 85 06 A9 40 85 07 A5 08 6308- DO F4 60 A2 00 BD 00 03 4260-00 3F 03 03 03 01 01 01 00 48 45 48 . 49 pr 3r 
61E8- 85 19 AO 00 B1 06 C5 19 6310- OA 9D 00 03 E8 EO 10 DO ppp nanm#arwrmnmnnian 
éFO- FO 32 C8 1 06 85 18 n2  6318- F4 60 A2 0E &D 00 038 RS BANMaMmRman 
61F8- 02 C6 18 E8 A5 18 C9 60 6320- 9D 00 03 CA CA EO 00 DO 4280-00 08 14 22 23 23 21 21 00 7F 4B 4B 49 49 41 41 

42c0-00 21 21 12 OC OC 12 21 00 0C OC 04 3F 21 21 21 
6200- FO 04 C9 40 DO F3 18 AO 6328- F3 BD 00 03 E8 9D 00 03 4200-00 3F 03 02 04 08 10 3F 00 3E 06 06 06 06 06 3E 
6208- 00 8A 65 06 85 06 A5 07 6330- A9 00 8D 00 03 60 A2 O1 np og 29 49 09 2e 22 01 90 3E 20 30 0 0 0 
6210- 69 00 85 07 CD 01 40 DO 6338- BD 00 03 CA 9D 00 03 E8  {nlo0 37 22 29 2 je De qe og où 22 DE 20 3 00 00 
6218- D3 A5 06 CD 00 40 DO cc 6340- E8 EO OF DO F3 BD 00 03 NN nd nes 
6220- A9 FF 85 08 60 AO O1 B1 6348- CA 9D 00 03 A9 00 8D OF 4340-00 22 22 22 22 3E 02 02 00 08 08 08 08 O8 00 08 

4350-1E 12 10 10 10 10 00 10 00 22 12 OE 12 22 02 02 
6228- 06 85 18 A2 00 C8 B1 06 6350- 03 60 4360-00 08 08 08 08 08 08 08 00 49 49 49 49 7F 00 00 

4370-00 22 23 0 0 
6230- 9D 00 03 E8 C8 C6 18 A5 4300-02 02 3E 22 27 JE 00 00 20 20 3E 22 22 3E 00 00 

_ 4390-00 02 02 02 22 3E 00 00 00 3 

6238- 18 C9 60 FO 04 C9 40 DO Sud. 90 01 04 64 L2N-AS 08 OÙ. DE 28 32 28 29 28 09 
6240- ED 8A cg 10 FO 09 A9 00 43B0-00 08 14 22 22 22 00 00 00 7F 49 49 49 49 00 00 








6248 9D 00 03 E8 ac 41 62 60 BYTE FO T 43C0-00 22 14 08 14 22 00 00 3E 20 3E 22 22 22 00 00 î 
_ N 43D0-00 3E 04 08 10 3E 00 00 00 18 OC OC 06 OC 0C 18 % 
6250- A2 00 A9 0B 85 24 A9 80 UM See meme Î 
6258- 85 18 BD 00 03 85 19 AO HAORCRMERET RUIEOR AS. 0906 Hi 
4000-00 38 28 28 29 OD 0B 09 00 28 28 3B 2C 2A O1 06 à 
6260- 00 A9 10 85 25 A5 25 20 4010-00 28 28 13 2C 2A 01 06 00 28 28 17 29 2B 01 07 RACDEFGH I AG TROOPORSTLAAYZ O1 à 
6268- C1 FB A5 28 18 65 24 85 deno-on 28 de 28 03 07 08 oz oo omis  abcdefghijkimoparstuvuxuz 1@ M 
Programme CREATE DE CARACTERES SUR UN": VTAB 15: HTAB 20: $ 


PRINT "FICHIER ANCIEN" 

155 VTAB 17: HTAB 1: PRINT “<4> RECUPERATION 
D'UN JEU DE CARACTERE": VTAB 18: HTAB 20: 
PRINT "CHAT MAUVE" 

160 VTAB 20: HTAB 1: PRINT "<5> CHARGEMENT D'UN 


+ 


100 HIMEM: 16383:D$ = CHRS$ (4):CR$ = CHRS (13): 
PRINT : PRINT CHRS$ (27): PRINT CHRS (17): PRINT 
: PRINT CR$:D$;"PR#0":FLAG = 0 

105 P01 = 24576:P10 = 24609:P20 = 24612:P30 = 


24659:P40 = 24719 FICHIER SUR PRINTER": CALL - 958 
110 P50 = 24790:P60 = 25054:S65 = 25125:P70 = 165 VTAB 23: HTAB 10: PRINT "VOTRE CHOIX ";: GET 
25168:P80 = 25235 R$ 
115 S10 = 25340:S20 = 25355:S30 = 25370:S40 = 25398 170 IND = 1: GOSUB 870: IF IND = 5 THEN NFRM = 2 
120 PRINT CR$: PRINT D$;"BLOAD 175 ON IND GOTO 165,180,285,185,295,225,185 


SAISIE.OBJ,A$6000" 180 END 

125 ONERR GOTO 220 185 REM ---—---—--- FICHIER ANCIEN 

130 REM ------- MENU -----... manne een nn nn nn sn nn nee 

135 HOME : VTAB 6: HTAB 1: PRINT "<0> FIN DE 190 VTAB 23: HTAB 10: INPUT "NOM DU FICHIER ? 
PROGRAMME "NOM$ 

140 VTAB 8: HTAB 1: PRINT "<1> CREATION D'UN JEU 195 IF NOM$ = "?" THEN PRINT CHRS (4) CATALOG”: 


DE CARACTERE": VTAB 9: HTAB 20: PRINT 
"NOUVEAU FICHIER" 


PRINT : PRINT : VTAB 23: HTAB 1: CALL - 958: 
GOTO 190 


145 VTAB 11: HTAB 1: PRINT "<2> AJOUT DE 200 PRINT CHRS (4);"BLOAD"NOMS$"”.CHAR,A$4000" 
NOUVEAUX CARACTERES A UN”: VTAB 12: HTAB 205 POKE 8, PEEK (16384): POKE 9, PEEK (16385) 
20: PRINT "FICHIER ANCIEN" 210 IF ASC (R$) = 50 THEN NFRM = 1: GOTO 295 
150 VTAB 14: HTAB 1: PRINT "<3> AFFICHAGE/MODIF 215 GOTO 750 
EE  * 
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58 


220 


225 
230 


300 


415 


420 


PRINT “FICHIER NON TROUVE..Appuyez sur 
RETURN ";: GET R$: GOTO 130 
REM FICHIER CHAT MAUVE 


VTAB 23: HTAB 10: INPUT "NOM DU FICHIER ? 
"NOMS: IF NOMS ="? THEN PRINT CHRS 

(4) CATALOG": PRINT : PRINT : VTAB 23: HTAB 1: 
CALL - 958: GOTO 230 

PRINT CHRS (4);"BLOAD"NOMS$".FONT,A$4000" 
CALL P50 

VTAB 20: HTAB 1: CALL - 958 

VTAB 22: HTAB 1: PRINT "1 AFFICHAGE _/0 
SAUVEGARDE": VTAB 23: HTAB 1: PRINT * 
MODIFICATION ENVOI PRINTER ";: GET R$ 
IND = 1: GOSUB 890 

ON IND GOTO 250,275,265 

NFRM = 3 

GOTO 295 

POKE 8, PEEK (16384): POKE 9, PEEK (16385) 
GOTO 750 


REM -—-—-— — CONSTRUCTION DU CADRE ---------- 

NFRM = 0 

HOME : IF NFRM < 2 THEN VTAB 1: HTAB 1: PRINT 

"MATRICE IMPRIMANTE - HAUTEUR : 9 ”: VTAB 2: 

HTAB 1: PRINT "LARGEUR DE 1 A 16 ";: PRINT 

"MAJUSCULES : A...P": VTAB 3: HTAB 19: PRINT 

“minuscules : a...p" 

FOR I = 1 TO 16: VTAB 8: HTAB (11 + 1): PRINT 

CHR$ (64 + 1): VTAB 9: HTAB (11 + 1): PRINT "-": 

VTAB 18: HTAB (11 + 1): PRINT "-": VTAB 19: HTAB 

(11 +1): PRINT CHRS (96 + 1): NEXT | 

FOR = 1 TO 8: HTAB 10: VTAB 9 + |: PRINT 1;"!": 

VTAB 9 + |: HTAB 28: PRINT "!";: PRINT 1+ 1: NEXT | 

IF NFRM = 2 THEN 400 

IF NFRM = 3 THEN 425 

REM ----— DEPLACEMENT DU CURSEUR -—-- -- 

VTAB 20: HTAB 1: CALL - 958: VTAB 21: HTAB 1: 

PRINT "FLECHES : DEPLACEMENT DU CURSEUR": 

VTAB 22: HTAB 1: PRINT "ESPACE : CHANGEMENT 
O:FIN ” 

XD = 12:YD = 10 

HTAB XD: VTAB YD: GET R$ 

IF ASC (R$) = 8 THEN XD = XD - 1: GOTO 365 

IF ASC (R$) = 10 THEN YD = YD + 1: GOTO 365 

IF ASC (R$) = 11 THEN YD = YD - 1: GOTO 365 

IF ASC (R$) = 21 THEN XD = XD + 1: GOTO 365 

IFR$ = "?" THEN CALL P40: GOTO 680 

IF XD < 12 THEN XD = 12 

IF XD > 27 THEN XD = 27 

IF YD < 10 THEN YD = 10 

IF YD > 17 THEN YD = 17 

IF ASC (R$) = 48 OR ASC (RS) = 64 THEN CALL 

P40: GOTO 580 

IF ASC (R$) = 32 THEN CALL P01 

GOTO 335 

REM  —-—- AFFICHAGE CARACTERE EXISTANT 

VTAB 4: HTAB 1: INPUT "NOM DU FICHIER ? ";:NOM$ 

IF NOM$ = "?" THEN CALL - 958: PRINT CHR$ 

(4) CATALOG": PRINT : PRINT : VTAB 23: HTAB 1: 

CALL - 958: PRINT "TAPEZ SUR UNE TOUCHE": 

GET R$: GOTO 295 

PRINT CHRS$ 

(4); "BLOAD'NOM$".CHAR,A$4000":NFRM = 3:NR = 

0: GOTO 245 

VTAB 4: HTAB 1: PRINT "NOM DU FICHIER ? ";NOM$ 


425 


435 


440 


450 


465 


470 
475 


VTAB 6: HTAB 1: PRINT "CARACTERE A 
RECHERCHER ? ";: GET Q$: PRINT Q$ 

IF ASC (Q$) < > 13 THEN 465 

IF NR = 0 THEN NR = 1:Q$ = CHR$ ( PEEK (16394)): 
GOTO 460 

DEP = PEEK ( PEEK (7) * 256 + PEEK (6) + 1) - 64: 
IF DEP > 32 THEN DEP = DEP - 32 

DEP = DEP + PEEK (7) * 256 + PEEK (6) + 2 

IF DEP > = PEEK (16384) + PEEK (16385) * 256 
THEN NR = 0: GOTO 435 

Q$ = CHR$ ( PEEK (DEP)) 

VTAB 6: HTAB 1: CALL - 868: PRINT "CARACTERE 
SUR ECRAN : ":Q$ 

IF PEEK (16384) = 10 AND PEEK (16385) = 64 THEN 
VTAB 21: HTAB 1: PRINT "LE FICHIER NE 
CONTIENT AUCUN ELEMENT..": VTAB 22: HTAB 1: 
PRINT "..RETOUR AU MENU..Appuyez sur 
RETURN..";: GET R$: GOTO 130 

NR = 1: POKE 8, ASC (Q$): CALL P60 

IF PEEK (8) < > 255 THEN 500 


480 VTAB 22: HTAB 1: PRINT "NON TROUVE":NR = 0 


485 


490 


VTAB 23: HTAB 1: PRINT "UNE AUTRE RECHERCHE 
ON ? ”;: GET R$: PRINT R$: IF R$ = "O" OR R$ = "o" 
THEN HOME : GOTO 295 

IFRS < >"N" AND R$ < > "n" THEN VTAB 20: HTAB 
1: CALL - 958: GOTO 485 

GOTO 245 

CALL S65: CALL P70: REM AFFICHAGE 

VTAB 22: HTAB 1: PRINT "0: FIN 

1:SUPPRESSION": VTAB 23: HTAB 1: PRINT "2: 
MODIFICATION 3:AUTRE CARACTERE ‘;: GET R$ 
IFRS = "?" THEN 680 

IND = 1: GOSUB 880 

IF ASC (R$) = 13 THEN 435 

ON IND GOTO 505,245,525,320,295 

VTAB 22: HTAB 1: CALL - 958: CALL P80:FLAG = 
1:NR = 0: GOTO 485: REM SUPPRESSION 

POKE 8, ASC (R$): CALL P60:FLAG = 1:1F PEEK (8) 
= 255 THEN 540 

CALL P80: REM SUPPRESSION 

R= ASC (R$): POKE 6,R:R= ASC (L$): POKE 7,R 
R=R-64:IFR > 32 THEN R = R -32 

POKE 24,R 

POKE 8, PEEK (16384): POKE 9, PEEK (16385) 
CALL P20: REM 

GOTO 485 

IF FLAG = 0 THEN 245 

GOTO 750 

REM -- CHARGT CODE A $4000 ET SUIVANTS--—- 
VTAB 20: HTAB 1: CALL - 958: VTAB 21: HTAB 1 

IF NFRM < > 3 THEN 610 

PRINT "MEME CODE ASCII <";Q$;"> ON ? ": GET 
R$: PRINT R$: IF R$ = "O" OR RS = "o" THEN R$ = 
Q$: GOTO 625 

IFR$ < >"N" AND R$ < > "n" THEN 585 

VTAB 20: HTAB 1: CALL - 958: VTAB 21: HTAB 1 
PRINT "CODE CARACTERE DU DESSIN ? ": GET 
R$: PRINT R$: IF ASC (R$) = 13 AND NFRM = 3 
THEN 505 

IF ASC (RS) = 13 THEN 320 

IF ASC (R$) < 26 OR ASC (R$) > 127 THEN 585 
VTAB 22: HTAB 1: PRINT "LARGEUR DU CARATERE 
?": GET LS$: PRINT L$: IF ASC (L$) = 13 AND NFRM 
= 3 THEN 505 
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630 IF ASC (L$) = 13 THEN 320 

635 IF (ASC (L$) > 64 AND ASC (L$) < 81) OR ( ASC (L$) 
> 96 AND ASC (L$) < 113) THEN 645 

640 GOTO 625 

645 IF NFRM = 3 THEN 530 

650 R= ASC (R$): POKE 6,R:R = ASC (L$): POKE 7,R 

655 R=R-64:IFR>32 THEN R = R -32 


R$ ="O" OR R$ = "o" THEN 775 

772 IFR$ < >"N"AND RS < > "n° THEN 760 

773 VTAB 23: HTAB 1: INPUT "NOM DU FICHIER ? 
"NOM$ 

775 A=4*1613:L= PEEK (16384) + PEEK (16385) * 
256 - A: PRINT CHR$ 
(4)"BSAVE"NOMS".CHAR,A"A",L"L 


660 POKE 24,R 780 REM ------ ENVOI VERS PRINTER -----—-- 
665 IF NFRM = 0 THEN NFRM = 1: CALL P10: GOTO 725 785 VTAB 22: HTAB 1: CALL -958 
670 POKE 8, PEEK (16384): POKE 9, PEEK (16385): 790 PRINT "ENVOI VERS PRINTER ON ? ";: GET R$: 
CALL P20 PRINT R$: IF R$ = "N'ORRS = "n" THEN 865 
675 GOTO 725 795 IFR$< >"O" AND R$ < > "o" THEN 780 
680 REM ----- DECALAGES -—- 800 POKE 8, PEEK (16384): POKE 9, PEEK (16385) 
685 VTAB 22: HTAB 1: PRINT " DECALAGES 0: HAUT 805 PRINT CR$;D$;"PR#1": PRINT CRS$;: CALL P30: 
1: BAS ": VTAB 23: HTAB 1: PRINT “<CR> RETOUR PRINT CHRS (4);"PR#0" 
2: DROITE 3: GAUCHE ";: GET R$ 810 VTAB 23: HTAB 1: PRINT"CONTROLE PRINTER 
690 IF ASC (R$) = 13 THEN 505 ON ? ";: GET R$: PRINT R$: IF R$ = "N"OR RS = "n" 
695 IND = 1: GOSUB 880 THEN 860 
700 ON IND GOTO 685,705,710,715, 815 IFR$< >"O" ANDRS < > "o" THEN 810 
720 820 PRINT CR$;D$;"PR#1": PRINT CHRS (27); CHRS (39) 
705 CALL S10: CALL P70: GOTO 320 825 PRINT "ABCDEFGHUKLMNOPQRS TUVWXYZ 
710 CALL S20: CALL P70: GOTO 320 0123456789 -="$;"ç../" 
715 CALL S30: CALL P70: GOTO 320 830 PRINT CHR$ (27); CHRS (36) Ë 
720 CALL S40: CALL P70: GOTO 320 835 PRINT "ABCDEFGHUKLMNOPQRSTUVWXYZ 4 
725 REM --—— CONTINUATION ==" 0123456789 -="$;"c../" } 
730 VTAB 23: HTAB 1: CALL - 958: IF NFRM = 3 THEN 840 PRINT CHR (27); CHRS (39) : 
465 845 PRINT “abcdefghijkimnoparstuvwxyz Ë 
735 PRINT "NOUVELLE FORME ON ? ";: GET R$: PRINT la#$%18&"()_+68:-U<> 7" 
RS: IF R$ ="O"OR R$ = "o" THEN HOME : GOTO 295 | 850 PRINT CHRS$ (27); CHRS (36) 
740 IFR$ < >"N" AND R$ < > "n" THEN 730 855 PRINT "abcdefghijkimnoparstuvwxyz 4 
745 GOTO 245 là#$%18&"()_+6è:-0<>7" di 
750 REM --- SAVE FICHIER ----.. 860 PRINT CHRS (4);"PR#0" Fe 
755 VTAB 20: HTAB 1: CALL - 958 865 GOTO 130 B 
760 VTAB 22: HTAB 1: PRINT "SAUVEGARDE DU 870 IF ASC (R$) = 53 OR ASC (R$) = 40 THEN IND = 7 


FICHIER ON ? ”;: GET R$: PRINT R$: IF R$ = "N” OR 
R$ = "n" THEN 780 

765 IF R$< >"O" AND RS < > "o" THEN 760 

770 IF NOM$ = ” THEN 773 

771 VTAB 22: HTAB 1: PRINT "SAUVEGARDE SOUS LE 
NOM DE <";NOM$;"> O/N ”;: GET R$: PRINT R$: IF 


875 IF ASC (R$) = 52 OR ASC (R$) = 39 THEN IND = 6 

880 IF ASC (R$) = 51 OR ASC (RS) = 34 THEN IND = 5 

885 IF ASC (R$) = 50 OR ASC (RS) = 123 THEN IND = 4 
890 IF ASC (R$) = 49 OR ASC (R$) = 38 THEN IND = 3 

895 IF ASC (R$) = 48 OR ASC (RS) = 64 THEN IND = 2 

900 RETURN 





Hard copy de la page HGR sur 
ImageWriter 


Yvan Koenig 


Il existe un moyen simple d'obtenir  BLOAD HARD mettre auparavant l'imprimante en 
une copie papier des pages graphi- CALL -151 mode dilaté par : 
ques de l'Apple 280 x 192 points à 405D:EA EA EA PRINT D$"PR#1”: 
partir du programme de Marc Debui- 4069:EA EA EA EA EA EA EA PRINT CHR$(14) [| 
gne du Pom’s 18. Il s’agit d’un patch 4070:EA EA EA FA FA 
utile à ceux qui ne disposent pas 40BB:B0 
d’une carte 80 colonnes étendue. 40C0:B5 
+ Me Le si Big RE EA Un Bug ? 

ac, il suffit dans le source de sup- : Essayez : 
primer les lignes 97, 101 à 104, 143 40D8:EA EA EA EA EA EA EA EA ; 

40E0:EA EA EA EA EA EA EA 10 INPUT A : PRINT A 

à 148. Il faut en outre remplacer la 20 GOTO 20 
ligne 132 par LDA #$B0, la 134 par BSAVE HARD,A$4000,L$1A0 


LDA #$B5, et la 136 par LDA 
#$B6. 


Pour modifier directement le code 
objet il faut pratiquer comme suit : 


Pom's n° 19 


Pour respecter la géométrie de 
l’image à reproduire, il conviendra de 
n'imprimer qu’en taille normale et de 





avec les valeurs 5,032 et 6,032. 
Qui peut expliquer ce phénomène ? 


Mr Baron - 31530 Lévignac. 
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Retrouvez vos programmes perdus 


Guy d’Herbemont 


Nul n'est à l'abri d’une erreur de ma- 
nipulation : vérité première qui peut 
parfois porter gravement atteinte à la 
productivité du programmeur ! 


Je pense là plus particulièrement à 
un type d'erreur que vous avez vrais- 
semblablement tous rencontré, hélas, 
au moins une fois. Au cours de la 
mise au point d’un programme Ap- 
plesoft, vous avez ainsi sauvé sur dis- 
quette une première version de votre 
travail, comportant quelques lignes 
de Basic, sous le nom de PGM, par 
exemple. Peu de temps après, vous 
attaquez la suite de la tâche avec 
énergie, améliorez les premières ins- 
tructions, rentrez en machine l’essen- 
tiel du programme et, consciencieu- 
sement, songez à sauvegarder le fruit 
de vos efforts. Et c’est alors que, vic- 
time de la fatigue, vous tapez 
"LOAD PGM” en lieu et place de 
"SAVE PGM”, réduisant ainsi à 
néant plusieurs heures de labeur, 
pour ne plus retrouver en mémoire 
que les quelques lignes de départ... 


Erreur funeste, il est vrai, mais pas ir- 
réparable, car la suite de votre pro- 
gramme se trouve toujours en mé- 
moire, mais au delà du pointeur de 
fin de programme, ce qui vous em- 
pêche de la retrouver, tant pour un 
LIST que pour un SAVE. 


La petite routine TROUVE que je 
vous propose ici, permet justement 
de reconstituer une fin de pro- 
gramme ainsi perdue, en modifiant 
les pointeurs de début et de fin de 
programme de telle façon que la par- 
tie de mémoire délimitée par ces 
pointeurs présente à nouveau une 
structure correcte tant pour le DOS 
que pour l’Applesoft. 


Les principes utilisés sont les sui- 
vants : 


e En partant de l'adresse donnée 
par le pointeur de fin de pro- 
gramme initial, chercher le premier 
O qui puisse être correctement 


considéré comme marqueur de fin 
de ligne. 

e Le premier octet suivant ce 0 cor- 
respond au début de la première 
ligne Applesoft récupérable, et son 
adresse sera donnée comme nou- 
veau pointeur de début de pro- 
gramme. 

e On parcourt ensuite les lignes suc- 
cessives, jusqu'à trouver si possi- 
ble les deux zéros marquant la fin 
de programme, et ce en mettant à 
jour le pointeur de fin de pro- 
gramme en conséquence. 


Si cette routine est exécutée victo- 
rieusement, vous pouvez ensuite sau- 
ver la partie de programme ainsi re- 
constituée. Par le biais de sa 
transformation ultérieure en fichier 
EXEC, par exemple, il est permis de 
la fusionner avec le début de pro- 
gramme déjà sauvegardé. Il ne reste 
alors qu’à boucher” un petit trou 
entre les deux parties et à reprendre 
les modifications éventuelles sur les 
premières lignes, avant de sauver 
(sans erreur si possible...) le pro- 
gramme complet ainsi retrouvé. 


Il est possible toutefois que la routine 
débouche sur un échec, lorsque les 
octets situés au delà du pointeur de 
programme initial (après le LOAD :in- 
tempestif) ne permettent pas de re- 
trouver une structure Applesoft cohé- 
rente. Ceci sera souvent le cas si 
d’autres opérations, telles que RUN, 
sont effectuées avant que l'erreur ne 
soit constatée et que la routine soit 
utilisée. Notons par ailleurs que 
TROUVE ne permettra jamais, bien 
sûr, de récupérer un programme 
écrasé par le chargement d’un autre 
plus long que lui, car la perte est 
cette fois effective et ne se situe plus 
du tout au niveau du pointeur de fin 
de programme. 


Mode d’emploi 


Lorsque vous constatez l'erreur de 
manipulation, chargez de suite la 


routine par BLOAD TROUVE.OBJ et 
lancez-en l'exécution par CALL 768. 
S'il n’y a pas de message ECHEC”, 
vous pouvez lister la partie de pro- 
gramme récupérée et la sauver sur 
disquette. 

Par un CALL 863 (utilisation de la 
sous - routine ECHEC), remettez en- 
suite les pointeurs de début et de fin 
de programme à leurs valeurs stan- 
dard. 

Rechargez alors la partie de pro- 
gramme récupérée et transformez-la 
en fichier EXEC (voir manuel du 
DOS 3.3). 

Faites enfin un LOAD du début de 
programme, puis un EXEC de la se- 
conde partie, et terminez les opéra- 
tions normalement sur le programme 
complet reconstitué en mémoire. 


Récapitulation 
TROUVE.OBJ 


0300- AS AF 85 67 A5 BO 85 68 
0308- A5 BO C9 96 BO 51 AO 00 
0310- B1 67 FO 08 E6 67 DO F8 
0318- E6 68 DO F4 E6 67 DO 02 
0320- E6 68 A5 67 85 AF A5 68 
0328- 85 BO AO O1 B1 AF FO 19 
0330- C5 B0O 90 D4 E6 BO C5 BO 
0338- FO 02 BO CC 48 88 C6 BO 
0340- B1 AF 85 AF 68 85 BO DO 
0348- E1 88 B1l AF DO BA A5 AF 
0350- 18 69 03 85 AF A5 BO 69 
0358- 00 85 BO 20 8B FD 60 A9 
0360- 01 85 67 A9 08 85 68 85 
0368- BO A0 03 84 AF A9 00 88 
0370- 91 67 DO FB 20 8B FD A2 
0378- OA BD 86 03 20 ED FD CA 
0380- DO F7 20 8B FD 60 20 03 
0388- 20 05 20 08 20 03 20 05 
0390- 20 16 





Programme TROUVE.SCE 
(Assembleur LISA 1.5)  ! 


1 ORG $300 
2 PRGDEB EPZ $67 

3 PRGEND EPZ $AF 

4 COUT EQU $FDED 
5 CROUTI EQU $FD8B 


6 LIM EQU 

LDA 

STA 
9 LDA 
10 STA 
11 DEBUT LDA 
12 CMP 
13 BCS 
14 LDY 


$96 
PRGEND 
PRGDEB 
PRGEND+1 
PRGDEB+1 
PRGEND+1 
#LIM 
ECHEC 

#0 


page fin recherche 


scherch ler octetnul 
spas au delà de LIM 


Pom's n° 19 


15 D1 LDA (PRGDEB) ,Y Erratum 


- Era Be PAST LEONE Lors du montage de "Gestion de fenêtres texte”, programme de G. 
17 INC PRGDEB Zwingelstein paru dans le numéro 18, un coup de ciseaux malheureux a 
18 BNE D1 supprimé les 4/5 du source assembleur et de la récapitulation. Vous trouverez 
19 INC PRGDEB+1 ci-dessous le code hexadécimal complet. Le source, trop important pour une 
20 BNE D1 Sinon octet suivant publication intégrale n'était pas non plus sur la disquette d'accompagnement. 
21 D2 INC PRGDEB Nous proposons à ceux d'entre vous qui possèdent BigMac de nous envoyer 
22 BNE D3 une disquette vierge et une enveloppe self-adressée affranchie à 3,20 F. Nous 
23 INC PRGDEB+1 renverrons l'intégralité du programme. 
A noter que le code objet de la disquette d'acompagnement suffit à une 
24 D3 LDA PRGDEB utilisation complète de ce programme. 
25 STA PRGEND 
26 LDA PRGDEB+1 89EE- A9 4C 8C00- E4 6E DO 05 C5 6D DO O1 
27 STA PRGEND+1 89F0- 8D F5 03 A9 02 8D F6 03  8C08- 60 85 5E.86 5F AO 00 B1l 
: 89F8- A9 8A 8D F7 03 4C 59 £A 8C10- SE AA CB Bl 5E 08 C8 B1 
28 SUITE LDY #1 chercher la fin 8A00- 00 8A 48 20 B1 00 68 A2  8C18- SE 65 94 85 94 C8 B1 SE 
d'adresse en adresse B8A08- OF DD 20 8A FO 06 CA DO 8C20- 65 95 85 95 28 10 D5 8A 
29 LDA (PRGEND),Y ;POIDS FORT 8A10- F8 4C C9 DE CA 8A OA AA  8C28- 30 D2 C8 B1 5E AO 00 OA 
30 BEQ TESTI fin ? 8A18- BD 31 8A 48 BD 30 8A 48 8C30- 69 05 65 5E 85 5E 90 02 
8A20- 60 A2 96 AA B6 B7 A8 A7 8C38- E6 5F E4 95 DO 04 C5 94 
31 CMP PRGEND+1 8A28- A3 49 43 4F 46 45 44 50 8C40- FO BE 20 51 8C FO F3 B1 
32 BCC DEBUT adresse trop basse 8A30- AC 8A C5 BA 2F 91 84 92 8C48- 5E 30 30 C8 B1l SE 10 2B 
33 INC PRGEND+1 8A38- 44 92 04 93 41 93 55 8B  8C50- C8 Bl SE FO 26 C8 38 B1 
34 CMP PRGEND+1 8A40- 58 BA 24 8F 4A 8F 69 8F  8C58- SE E5 71 AA C8 Bl 5E ES 
35 BEQ 51 8A48- 0B 90 BA 8F A4 8F 00 00 8C60- 72 C5 70 90 16 DO 04 E4 
8A50- 00 00 00 00 12 8A 00 00 8C68- 6F 90 10 C5 74 90 06 DO 
36 BCS DEBUT adresse trop élevée 8A58- 00 38 AD 00 8A E9 08 85  8C70- OA E4 73 BO 06 91 5E 88 
37 S1 PHA 8A60- FA AD 01 8A E9 00 85 FB  8C78- 8A 91 5E A5 8F 18 65 5E 
38 DEY 8A68- A9 00 8D 4E 8A 8D 4F BA  B8C80- 85 SE 90 02 E6 SF A6 5F 
8A70- 8D 52 8A 20 B9 95 A9 28 BCBB- A0 00 60 38 AS 3E E5 3C 
39 DEC PRGEND+1 8A78- 2C 58 8A 10 01 OA 8D 53  B8C90- 85 40 AS 3F ES 3D 85 41 
40 LDA (PRGEND),Y ;Poids faible de 8A80- 8A A9 00 8D 54 BA A9 18 B8C9I8- 18 A5 42 65 40 85 40 A5 
41 STA PRGEND ;l'adresse suivante BA88- 8D 55 8A 20 AB 8D 20 C6 BCAO- 43 65 41 85 41 B1l 3E 91 
42 PLA 8A90- 8D A6 FA AS FB 86 73 85 B8CAB- 40 20 AF 8C 90 F7 60 A6 
, 8A98- 74 20 6C D6 A6 76 E8 FO  8CB0- 40 DO 02 C6 41 C6 40 A5 
43 STA PRGEND+1 ;et son poids fort BAAO- 09 A6 33 EO DD FO 03 4C 8CB8- 3C C5 3E A5 3D ES 3F A6 
44 BNE SUITE branche toujours BAAB- D2 D7 4C 3C D4 20 F8 E6  BCCO- 3E DO 02 C6 3F C6 3E 60 
45 TEST1 DEY 8ABO- CA EO 18 BO ?7F 8A 18 65 BCC8- 20 84 E4 38 AS 73 E5 71 
46 LDA (PRGEND) , Y BAB8- 22 C5 23 BO 77 85 25 8D  8CDO- 85 50 A5 74 ES 72 85 51 
BACO- FB 05 20 A7 95 60 20 F8  8CD8- 38° AS FA ES 71 85 5E A5 
47 BNE DEBUT BAC8- E6 CA E4 21 B0O 66 8A 85  8CEO- FB ES 72 85 5F AD 00 8A 
48 FIN LDA PRGEND 8ADO- 24 8D 7B 05 8D 7B 04 60 B8CE8- CS 5E AD 01 8A ES 5F 90 
49 CLC 8AD8- 20 E7 8D 20 21 8D B0O 57  8CFO- 15 38 A5 6F ES 71 85 5E 
50 ADC #3 BAEO- 20 24 8E 20 60 8D A5 73  8CF8- A5 70 ES 72 85 5F AS 5E 
BAE8- 85 FA A5 74 85 FB 20 C8  8D00- C5 6D AS SF ES 6E 60 48 
51 STA PRGEND BAFO- 8C 90 3E 60 20 E7 8D 20 BDO8- A9 00 20 21 8D FO OC 68 
52 LDA PRGEND+1 8AF8- 21 8D 90 40 48 AD 56 8A  8D10- CD 4F 8A FO 08 48 AD 4F 
53 ADC #0 8B00- 20 07 8D 90 3A 68 60 20 B8D18- 8A DO EF 68 18 AD 4E 8A 
54 STA PRGEND+1 8B08- E7 8D 20 21 8D 90 2D AD B8D20- 60 48 A5 73 85 FA A5 74 
8B10- 56 8A 20 07 8D BO 28 60  B8D28- 85 FB 20 B9 8D 68 CD 4E 
55 JSR CROUTI 8B18- A9 00 20 07 8D FO 1D 60  8D30- 8A FO 1B 48 AD 4E 8A FO 
56 RTS 8B20- 20 E7 8D 20 07 8D BO 0C 8D38- 13 20 60 8D 18 AS FA 65 
57 ECHEC LDA #1 8B28- AD 56 8A 20 21 8D 90 OC 8D40- 71 85 FA A5 FB 65 72 85 
58 STA PRGDEB 8B30- 60 4C 10 D4 4C 99 El A2 B8D48- FB 4C 2A 8D 68 18 AD 4F 
8B38- 78 4C 12 D4 4C 7C D9 4C B8D50- 8A 60 A9 08 18 65 FA 85 
59 LDA #8 8B40- DS E8 20 E7 8D 20 07 8D  8D58- FC AS FB 69 00 85 FD 60 
60 STA PRGDEB+1 8B48- 08 AD 56 8A 20 21 8D 90 B8D60- A9 08 85 71 A9 00 FO 04 
61 STA PRGEND+1 8B50- EB 20 F3 8D 28 60 A9 00 B8D68- A9 00 85 71 85 72 38 AD 
62 LDY #3 8B58- 20 21 8D 18 A9 08 65 FA  B8D70- 55 8A ED 54 8A FO 10 A8 
63 STY PRGEND 8B60- 85 FA 90 02 E6 FB 20 67  B8D78- AD 53 8A 18 65 71 85 71 
8B68- DD 20 52 E7 38 A5 FA E5  BD80- 90 02 E6 72 88 DO F1 60 
64 LDA #0 8B70- 50 85 71 A5 FB ES 51 85  8D88- A5 25 38 E5 22 8D 50 8A 
65 El DEY 8B78- 72 20 C8 8C 90 B3 A5 FB  B8D90- A5 24 2C 58 8A 10 03 AD 
66 STA (PRGDEB),Y 8B80- C5 70 DO 06 A5 FA C5 6F  B8D98- 7B 05 8D 51 8A 60 AD 50 
67 BNE El 8B88- FO 30 A5 6F 85 3C A5 70  BDAO- 8A 20 B6 8A AD 51 8A 20 
8B90- 85 3D A4 FB A6 FA DO 01  8DA8- CF 8A 60 AO 04 B9 4E 8A 
68 JSR CROUT1 8B98- 88 CA 86 3E 84 3F AS SE  B8DBO- 99 1C 00 C8 CO 08 90 F5 
69 LDX #$0A 8BAO- 85 42 A5 5F 85 43 AO 00  B8DB8- 60 A0 00 B1 FA 99 4E 8A 
70 E2 LDA TEXT2,X BBA8- AS 6F C5 SE AS 70 E5 5F  B8DCO- C8 CO 08 90 F6 60 AO 00 
71 JSR COUT 8BBO- 90 05 20 2C FE B0O 03 20 B8DC8- B9 4E 8A 91 FA C8 CO 08 
8BB8- 8B 8C AS 5E 85 6F A5 5F  BDDO- 90 F6 60 AO 04 B9 4E 8A 
72 DEX 8BCO- 85 70 A5 50 85 73 A5 51  B8DD8- 48 Bl FA 99 4E 8A 68 91 
73 BNE E2 8BC8- 85 74 A9 55 A2 00 85 SE  BDEO- FA C8 CO 08 90 EF 60 20 
74 JSR CROUTI 8BDO- 86 5F C5 52 FO 05 20 51 BDE8- F8 E6 8A FO 34 30 32 8E 
75 RTS 8BD8- 8C FO F7 A9 07 85 8F A5  B8DFO- 56 8A 60 20 BE DE 20 F8 
8BEO- 69 A6 6A 85 5E 86 5F E4 BDF8- E6 CA 8A 2C 58 8A 10 02 
16 TEXT2 UE SAS 8BE8- 6C DO 04 C5 6B FO 05 20  B8E00- 29 FE 8D 52 8A 20 BE DE 
77 DCM "INT" 8BFO- 47 8C FO F3 85 94 86 95  BEO8- 20 F8 E6 CA 8A 38 ED 54 
78 END 8BF8- A9 03 85 8F A5 94 A6 95 8E10- 8A 18 6D 55 8A 8D 55 8A 
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AA En re Psp a 1e a RU 


62 


8E18- 
8E20- 
BE28- 
8E30- 
8E38- 
8E40- 
8E48- 
8E50- 
8E58- 
8E60- 
8E68-— 
8E70- 
8E78- 
8E80- 
8E88- 
8E90- 


8E98- 
BEAO- 


BEA8- 
8EBO- 
8EB8- 
8Eco- 
8Ec8- 
8EDO- 
8ED8- 
8EEO- 
BEE8- 
8EFO- 
8EF8- 
8F00- 
8FO08- 
8F10- 
8F18- 
8F20- 
8r28- 
8F30- 
8F38- 
8F40- 
8F48- 
8F50- 
8F58- 
8F60- 
8F68- 
8F70- 
8F78- 
8F80- 
8F88- 
8F90- 
8F98- 
8FAO- 
8FA8- 
8FBO- 
8FB8- 
8FcO- 
8FC8- 
8FDO- 
8FD8- 
8FEO- 
8FE8- 
8FFO- 
8FF8- 
9000- 
9008- 
9010- 
9018- 
9020- 
9028- 
9030- 
9038- 
9040- 
9048- 
9050- 
9058- 
9060- 
9068- 
9070- 
9078- 
9080- 
9088- 
9090- 
9098- 


ëëe 


90A0-— A5 
90A8- 55 
930B0- 55 
90B8- 65 
goco- 85 
90C8- 18 
90D0- FF 
90D8- 24 
90E0- B1 
90E8- A0 
90F0- 20 
90F8- 90 
9100- 48 


9108- 8D 
9110- 8D 
9118- 20 
9120- 8A 
9128- A9 
9130- 20 
9138- F5 
9140- 23 
9148- E6 
9150- 91 
9158- 91 
9160- FO 
9168- F5 
9170- E8 
9178- B7 


9180- F8 
9188- AC 
9190- BO 
9198- 23 
91A0- AD 
91A8- 2C 
91B0- 2B 
91B8- DO 
91C0- 00 
91C8- 10 
91D0- A0 
91D8- 10 
91E0- FO 
91E8- 8A 
91F0- 9B 
91F8- C1 
9200- 29 
9208- A9 
9210- 60 
9218- AC 
9220- 2E 
9228- 29 
9230- 2C 
9238- 78 
9240- 60 
9248- 08 
9250- 92 
9258- EE 


91 90 F8 20 B6 8A AC 


9260- 
9268- 
9270- 
9278- 
9280- 
9288- 
9290- 
9298- 
92A0- 
92A8- 
92B0- 
92B8- 
92C0- 
92C8- 
92D0- 
92D8- 
92E0- 
92E8- 
92F0- 
92F8- 
9300- 
9308- 
9310- 
93318- 
9320- 
9328- 
9330- 
9338- 
9340- 
9348- 
9350- 
9358- 
9360- 
9368- 
9370- 
9378- 
9380- 
9388- 
9390- 
9398- 
93A0- 
93A8- 
93B0- 
93B8- 
93c0- 
93c8- 
93D0- 
93D8- 
93E0- 
93E8- 
93F0- 
93F8- 
9400- 
9408- 
9410- 
9418- 


98 
2C 


94 9420- 
8A 9428- 
93 9430- 
DD 9438- 
93  9440- 
42  9448- 
56 9450- 
9A 9458- 
73 9460- 
c8  9468- 
68 9470- 
08 9478- 
42  9480- 
cé  9488- 
20 9490- 
20 9498- 
93  94A0- 
34 94A8- 
20 94B0- 
20 94B8- 
93  94C0- 
92 94C8- 
8D 94D0- 
94 94D8- 
92 94E0- 
03  94E8- 
B9 94F0- 
4c 94F8- 
20 9500- 
AD 9508- 
20 9510- 
93 9518- 
93 9520- 
DO 9528- 
c8 9530- 
DO 9538- 
A2 9540- 
A9 9548- 
gp 9550- 
9E 9558- 
A8 9560- 
20 9568- 
E5 9570- 
po 9578- 
on 9580- 
se 9588- 
75 9590- 
ce 9598- 
Fo 95A0- 
20 95A8- 
68 95B0- 
og 95B8- 
cg 95C0- 
30 95C8- 
cg 95D0- 
E7 95D8- 


Mein: MORKEUT ÉLARUU 


Apple ][+, //e, lc 


Jacques Supernant 


8D 
2C 
8D 
38 
8D 
43 
77 
9sA 
8D 
8D 
8D 
92 
BE 
co 
16 
04 
8E 
A9 
C4 
16 
60 
FL 
BB 
72 
FC 
B5 
95 
A9 
6F 
8D 
B5 
D6 
43 
60 
cg 
03 
EO 
A6 
94 
29 
04 
06 
48 
B8 
05 
90 
90 
B0O 
95 
FB 
01 
A9 
c9 
8A 
co 
8A 


Ce moniteur autorise un contrôle de l'exécution des routines 
en langage machine. 


Un mode Trace et Pas à Pas très évolués et sélectifs sont complétés 


par un accès direct aux registres du 6502 (ou 65C02). Il est ainsi 


pure de da bussrasasud da son a gré ou à laide de la routine æ desde 


ténor pepe rl ES) 


Les fichiers 


source sont sur 


la disquette. 


Disquette et 
documentation : 


150,00 F TTC 
franco . Bon de 


commande 
page 78. 
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Disquette mixte Pascal/DOS 3.3 


Principe 


Les programmes présentés ici utili- 
sent les mêmes idées que pour la 
mixité ProDOS/DOS 3.3 (Pom's 18) 
mais sont destinés à des utilisateurs 
de Pascal et du Basic sous DOS 3.3 
(exemple, la disquette d’accompa- 
gnement). Mais direz-vous, pourquoi 
pas les 5 systèmes d'exploitation à la 
fois sur une même disquette ? Hélas, 
ce serait trop beau: Pascal et 
ProDOS utilisent le même emplace- 
ment (bloc 2) comme clé du volume, 
et bien que les conceptions générales 
de ces blocs clés soient similaires, ils 
diffèrent sensiblement et sont donc 
incompatibles. 


Rappel des principes précédem- 
ment exposés 


® Initialiser une disquette Pascal à 
l’aide du FORMATTER UCSD 

e Modifier le répertoire pour limiter 
le nombre de blocs Pascal 

e Créer une piste CATALOG et un 
VTOC en piste 17 pour gérer la 
partie DOS 3.3. 


Les deux dernières étapes seront réa- 
lisées par un programme ProDOS, 
INITPAS3.3. On pourrait réaliser la 
même chose sous DOS 3.3, mais 
c'est un peu plus compliqué : RWTS 
accède au disque par secteur, et l’in- 
terface RWTS/Basic est nettement 
moins agréable que MLI. 


La structure d’un volume Pascal 
UCSD 


Première remarque : la sectorisation 
logique de la disquette Pascal est 
identique à la sectorisation ProDOS. 
Accès par blocs et même entrelace- 
ment des blocs; ceci économise énor- 
mément de travail. Le volume Pascal 
débute de même par les blocs 0-1 
contenant le chargeur de SYS- 
TEM.APPLE lors du boot. Il continue 
par 4 blocs (2-5) du répertoire, mais, 
et c'est là que les choses sérieuses 
commencent, il n’y a pas de Volume 
Bit Map, et donc le bloc 6 est dispo- 
nible, ainsi que les suivants (jusqu’à 
279 inclus) pour les fichiers. 

Conséquence : le système UCSD 
gère l'espace disque de manière 
beaucoup plus rudimentaire que 
ProDOS. Les fichiers doivent être 
stockés sur des blocs contigus (néces- 
sité de CRUNCHer le volume de 
temps en temps pour regrouper les 
trous dans l'espace disque). Du 
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coup, l'extension de la zone Pascal 
au-delà de la piste 16 apporte certes 
des blocs supplémentaires, mais que 
l'on ne pourra pas agréger au reste 
du volume Pascal : les blocs corres- 
pondant à la piste 17 (indispensables 
au DOS 3.3) seront marqués défec- 
tueux pour les protéger d’un 
CRUNCH intempestif. 


Le répertoire est composé de 78 en- 
registrements de 26 octets décrivant 
les fichiers à l'exception du premier 


qui décrit le volume. Du fait du 
CHANGE CHANGE 





mode de gestion de l'espace disque, 
les fichiers figurent au répertoire dans 
l'ordre correspondant à leur empla- 
cement physique sur la disquette, 
sans trous correspondant à d'éven- 
tuels fichiers supprimés. Dès qu'un fi- 
chier est créé (respectivement sup- 
primé), l'enregistrement 
correspondant au répertoire est in- 
séré (respectivement détruit) et les 
enregistrements qui le suivent sont 
déplacés vers le bas (respectivement 
vers le haut) pour compacter le ré- 
pertoire. Ceci entraîne des remanie- 
ments permanents du répertoire, 
mais autorise une gestion simple des 
blocs occupés du volume par l'exa- 
men de tous les enregistrements 
actifs du répertoire. 


Le format des enregistrements 
au répertoire est le suivant : 
Pour un fichier : 

octet numéro 

0-1 numéro du bloc de début du fi- 
chier 





François Sermier 


2—3 numéro du premier bloc suivant 
la fin du fichier 

4—5 type du fichier 

6 longueur du nom du fichier 

7-21 nom du fichier 

22-23 nombre d'octets utilisés dans 
le dernier bloc du fichier 

24-25 date de modification du fi- 
chier (format Pascal) 


Pour le premier enregistrement décri- 

vant le volume : 

octet numéro 

0—1 numéro du bloc début du vo- 

lume (0 évidemment...) 

2—3 numéro du bloc suivant le der- 

Le bloc du répertoire (normalement 
) 

4-5 catégorie du disque (toujours O) 

6 longueur du nom du volume 

7-13 nom du volume 

14-15 nombre de blocs du volume 

16-17 nombre de fichiers du vo- 

lume (nombre  d’enregistrements 

actifs au répertoire) 

18-19 inutilisés (0) 

20—21 date du système 

22-25 inutilisés. 


On vérifie aisément que l’on peut re- 
constituer l’occupation du volume en 
examinant les octets O à 3 de tous 
les enregistrements du répertoire. Si 
vous initialisez vos disquettes en utili- 
sant l'option ‘Duplicate Directory’ de 
la commande ZERO du FÎLER 
UCSD, vous aurez un premier enre- 
gistrement décrivant le volume identi- 
que à celui décrit ci-dessus à l'excep- 
tion du champ 2-3 qui contiendra 
10. 


Les programmes présen- 
tés 

On ne s'étonnera guère de retrouver 
des points communs entre les pro- 
grammes proposés et INITPRO3.3 


(Pom's 18). Même organisation, 
même appel à MLI. 


INITPAS3.3 
INITPAS3.3 est le frère jumeau 
d'INITPRO3.3. toutefois, on note 


quelques différences. 

Lignes 150-180 : si le nombre de fi- 
chiers Pascal dépasse 18, le réper- 
toire est sur plusieurs blocs. Certaines 
des entrées sont à cheval entre les 
blocs. il est donc plus commode 
d'avoir l'intégralité du répertoire utile 
en mémoire. 





A ND 


63 





Lignes 310-430 : inspection du ré- 
pertoire. Tous les fichiers se termi- 
nant après le bloc 136 seront détruits 
et enlevés du répertoire (ligne 350). 
S'il en existe, la liste en est affichée 
et vous avez la possibilité d'abandon- 
ner. S'il existe une 2ème zone Pascal 
après la piste 17 (FLAG=1), on crée, 
ligne 430, un fichier fictif CATA- 
LOG3.3 de type défectueux (Bad) 
pour éviter qu'il soit Crunché, ce qui 
déplairait fortement au DOS... 


Il serait possible d’être plus généreux 
pour les fichiers Pascal situés intégra- 
lement dans la 2ème région Pascal, 
mais cela imposerait des manipula- 
tions désagréables pour supprimer les 
fichiers à cheval sur la piste 17 et in- 
sérer un nouveau fichier CATA- 
LOG3.3, le tout en préservant l'ordre 
et la continuité du répertoire. 

Lignes 440-490 : on réécrit le tout. 


DUMPDIRPAS 


Le programme DUMPDIRPAS vous 
montre comment on peut exploiter 
sous ProDOS le répertoire d’une dis- 
quette Pascal. Il est suivi par un 
exemple d'exécution que l’on pourra 
comparer à ce que fournit pour la 
même disquette le FILER UCSD. 

L'option imprimante est prévue pour 
une imprimante permettant d'écrire 
en mode ultracondensé (17 caractè- 
res par pouce) pour caser un fichier 
par ligne. L'imprimante utilisée ici est 
une Image Writer, les codes de 
++ dns (ESC Q) sont situés ligne 


Le Dump hexa est réalisé en utilisant 
la routine moniteur  PRBYTE 
($FDDA) appelée par une partie de 
langage machine implanté en 800 
($320) par la ligne 3113-3114 (LDA 
#XX, JSR PRBYTE, JSR OUTSP, 
RTS), l’octet à sortir est POKé en 
801 avant l'appel. 


MAP 


Enfin, un utilitaire permettant d'exa- 
miner des disquettes quelconques, 
sauf CP/M, (non protégées). Un 
même programme ProDOS identifie 
n'importe quelle disquette DOS, 
ProDOS ou Pascal. Si la disquette 
résulte d'une hybridation antérieure, 
cela vous est signalé en vous deman- 
dant laquelle des moitiés vous désirez 
examiner, néanmoins si vous avez 
créé une disquette mixte 
ProDOS/DOS sur laquelle la partie 
ProDOS n'atteint pas la piste 17, 
vous ne pourrez pas en afficher le 
VTOC car il faudrait pour cela aller 
lire un bloc situé à la fin du volume 
(O0 ERROR). D'ailleurs, vous n'au- 
rez pas non plus le VBM ProDOS 
sauf si vous avez opportunément sa- 
crifié les lignes 3140-3150. 


Le programme vous demande dans 

quel lecteur est située la disquette. 

Ne vous étonnez pas s'il vous pro- 

À un numéro de lecteur allant de 
à 3: 


e le numéro 3 correspond au disque 
virtuel /RAM (si vous avez une 
carte 80 colonnes étendue) 

le numéro 0 correspond à l’occu- 
pation de la mémoire principale 
par le programme SYSTEM du 
moment, c'est-à-dire dans notre 
cas, évidemment BASIC.SYSTEM. 
La table des secteurs occupés est 
tenue par MLI en page globale en 
$BF58 — S$BF6F. Il me semble 
d’ailleurs qu’il y a un léger bug, 
car les pages mémoires $BA à 
$BD sont marquées inutilisées 
alors qu’elles contiennent des don- 
nées de BI... Si bug il y a, on peut 
le corriger aisément en modifiant 
BASIC.SYSTEM: à l'adresse 
$2048 en remplaçant LDA #$C3 
par LDA #$FF ou encore NOP 
NOP, puisqu’alors l’accumulateur 
contient déjà $FF. 


Ayant choisi votre lecteur, le pro- 
gramme analyse alors l’état d’occu- 
pation de l’objet étudié en affichant 
l'image du VTOC (ou VBM, ou ré- 
pers ou Memory Bit Map suivant 
l'OS). 


L'utilité de MAP est double : 

e avant hybridation, pour détermi- 
ner à partir de quelle piste on peut 
implanter la région DOS 3.3 

e après, pour les inquiets, pour véri- 
fier que tout s’est bien passé. 

L'analyse du VTOC 3.3 prend quel- 

que temps : il faut analyser tous les 

bits de 70 octets, ce que le Basic ne 
fait pas très aisément. Si l’on s'impa- 
tiente, on peut remplacer tout le bloc 

800-950 par l'appel d'une routine 

en langage machine (exemple, Disk 

Map de K.Prouty dans All About 

DOS). 


La discrimination des systèmes d'ex- 
ploitation se fait à l’aide des octets 
2—-3-4 du bloc 2 (c'est-à-dire 
piste/secteur DOS : O/B). On vérifie 
en effet qu'ils contiennent dans les 
différents cas les valeurs suivantes 
(où une valeur non nulle est notée 
}, 


Octet 


DOS (Esclave) 
DOS (Maître) 


ProDOS 


Pascal 
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Le mot 2-3 contient le chaînage du 
répertoire (ProDOS), des blocs occu- 
pés (Pascal). L'octet 4 contient la 
longueur du nom de volume 
(ProDOS), le type du disque Pascal 
(toujours 0). Les secteurs O/A et 0/B 
contiennent le code permettant au 
DOS de se reloger (master) ou rien 
du tout (slave). 


En utilisant les fonctions logiques, on 
discrimine à l’aide de la fonction : 
(oct2 AND NOT oct3}x(oct4 + 1), 
où NOT X=0 et NOT 0=1. Cette 
fonction vaut 1 pour ProDOS, 2 
pour Pascal et O0 dans tous les autres 
cas. 

Par ailleurs, on regarde si le contenu 
du secteur $11/0 peut être un VTOC 
en testant l'octet de version du 
DOS : s’il vaut 3, on considère que 
la piste $11 contient un catalogue 
DOS 3.3 normal (DOS=1). Ceci 
permet de reconnaître les disquettes 
mixtes pour lesquelles TYPE est dif- 
férent de O alors qu’elles ont un ré- 
pertoire 3.3 en piste $11. 


Booter ? 


Pourquoi pas ? Pour booter en Pas- 
cal, il suffit de transférer SYS- 
TEM.APPLE et SYSTEM.PASCAL 
sur notre disquette. On réduit ainsi, 
de plus de la moitié, la lère zone 
Pascal. 


Simuler un boot DOS est également 
réalisable. En s'inspirant de la mé- 
thode décrite pour un boot DOS 
sous ProDOS, il faut réaliser une 
copie disque du DOS situé en mé- 
moire et le transférer sur une dis- 
quette Pascal puis le charger en Pas- 
cal. Encore une vingtaine de blocs en 
plus sur le disque; au total il ne reste 
plus qu’une trentaine de blocs dispo- 
nibles dans la 1ère zone Pascal. 


Est-ce bien utile ? Il me semble que 
l'intérêt du ’mixtage’ réside surtout 
dans l’utilisation de DATA DISKs 
compatibles entre plusieurs systèmes 
d'exploitation. Cependant, il y a bien 
des gens ‘(Ron De Groat dans All 
About Pascal) pour réaliser pire : 
faire coexister en mémoire et intera- 
gir le sytème Pascal avec le système 


Basic+DOS ! 


Bibliographie 

Aux ouvrages déjà cités dans l’article 
précédent, on ajoutera: 

AIl About Pascal (Call AP.PL.E. in 
Depth n{2) 

All About DOS (Call A.P.PL.E. in 
Depth n{3) 

Le Système Pascal UCSD de Thierry 
Chamoret 
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Programme MAP 


10 OO = 256:U = O:F = O:US$ = "":F$ = "":B$ = "X" 

20 DEF FN W(X) = PEEK (X) + OO * PEEK(X+ 1) 

30 DIM T$(15),TY$(3),UN(3):TY$(0) = "DOS3.3":TY$(1) = 
"ProDOS":TY$(2) ="Pascal":TY$(3) = "Mémoire 
Vive”:UN(1) = 96:UN(2) = 224:UN(3) = 176 

40 GOSUB 3000 

50 IF NOT DOS OR NOT TYPE THEN GOTO 90 

60 : PRINT : PRINT "Map de quelle partie 
(STY$(0);"=0/";TY$(TY);"=1) 2";:GET R$: PRINT R$ 

70 R= VAL (R$): IF NOT NOTR«< >R THEN VTAB 
PEEK (37): GOTO 60 

80 TY=TY'R 

90 HOME : PRINT "Volume ";TY$(TY):" "; 

100 ON TYPE + 1 GOSUB 800,200,400,170 

110 PRINT : PRINT "-:disponible”; TAB( 15);" “occupé” 

115IF TYPE =3 THENX=F:F=U:U2=X 

120 PRINT F;" disponibles”; TAB( 13);U;" occupés" 

130 END 

150 X= PEEK(R) 

152 FORJ=0TO7 

154 ::OC$(I,J + D) =F$ 

156 ::Y = INT (X/2) 

158 ::1F X = 2* Y THEN OCS${(I,J + D) = U$:U = U + 1 

160 :X=Y 

162 NEXT 

164 RETURN 

170 PRINT : PRINT" ";: FOR I = 0 TO 15: PRINT T$(1);: 

NEXT 

180 GOSUB 250 

190 RETURN 

200 NB= FN W(BU +41) 

210 R = BU + 4: GOSUB 600:VOLS = N$ + 7": GOSUB 650 

240 POKE BLOC, PEEK (BU + 39): POKE BLOC + 1, 

PEEK (BU + 40): CALL MLI 

245 PRINT 

250 FOR B=0TONB/8-1 

255 :: IF TY =3 AND B=2* INT (B/2) THEN PRINT : 

PRINT "$";T$(B/ 2);"0:";260 ::X = PEEK (BU +B) 

270 : FORI=1TO8 

280 ::: IF X > 127 THEN X = X - 128: PRINT F$::F = F + 1: 

GOTO 300 
290 :::: PRINT U$;:U = U + 1 
300 ::X=X*2 
310 NEXT I,B: PRINT 
330 RETURN 
400 NB = FN W(BU + 14}:NF = FN W(BU + 16):KEEP = 0 
410 R = BU + 6: GOSUB 600:VOLS$ = N$ + ":": GOSUB 650 
420 BO =2 + INT (26 * (NF + 1)/512): IF BO = 2 THEN 
GOTO 470 

430 FOR | = 3 TO B0O 

440 :: POKE PA + 3, FN HI(BU) + 2 * (1-2): POKE 
BLOC,I: CALLMLI 

450 NEXT 

460 POKE PA +3, FN HI(BU) 

470 FOR I = 0 TO NF 

480 :R = BU +1* 26:BB = FN W(R):BH = FN W(R+ 2) 

490 ‘BUS = U$: IF FN W(R + 4) = 1 THEN BUS = B$ 

500 :: IF BB = KEEP THEN GOTO 520 

510 :: FOR J = KEEP TO BB - 1: PRINT F$:F = F + 1: 

NEXT 
520 :: FORJ = BB TO BH - 1: PRINT BUS:U = U + 1: NEXT 
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530 KEEP = BH 

540 NEXT 

550 IF BH < NB THEN FOR I = BH TO NB - 1: PRINT F$::F 
=F+1:NEXT 

560 RETURN 

600 L= PEEK (R):ST = INT (L/16):L = L-16* ST:N$ = ”": 
IFST = 15 THEN NS =" 

610 FORJ = 1 TO L:N$ = N$ + CHRS ( PEEK (R + J)): 
NEXT 

620 RETURN 

650 PRINT VOL$;" blocs:";NB: IF NB < > 280 THEN 
PRINT " non standard” 

660 PRINT : FOR 1 = 0 TO 9: PRINT |: SPC{ 7);: NEXT 

670 RETURN 

800 POKE BLOC, 136: CALL MLI 

810 VOL = PEEK (BU + 6):NB = PEEK (BU + 52) 

820 PRINT "n':";VOL:;" pistes:";:NB: IF NB < > 35 THEN 
PRINT " non standard” 

830 DIM OC$(NB - 1,15): GOSUB 940 

840 FOR] = 0 TO NB-1 

850 ::D = 8:R = BU + 56 + 4 * |: GOSUB 150 

860 ::D = OR = R + 1: GOSUB 150 

870 NEXT 

880 FOR J = 0 TO 15 

890 :: PRINT : PRINT T$(J); 

900 :: FOR 1 = 0 TO NB - 1: PRINT OC$(I,J);: NEXT 

910 :: PRINT T$(J); 
NEXT 


930 F=16* NB-U 
940 PRINT : PRINT * “;: FOR | = 0 TO NB - 1: PRINT T$(| - 
16* INT (1/16));: NEXT 

950 RETURN 

3000 REM --------- Initialisation Appel MLI ------------. 

3040 MLI = 768:BUFFER = 8192:UNIT = 224: REM Drive 
1:96 --- Drive 2:224 

3050 PA = 784:BLOC = PA + 4 

3060 CODE = MLI + 3:LIT = 128:ECRIT = 129 

3070 FOR 1 = 0 TO 21: READ X: POKE MLI + I,X: NEXT 

3080 DATA 32,0,191,128,16,3,144,6,32,139,190 
,32,9,190,96,0,3,224,0,32,2,0 

3090 FOR 1 = 0 TO 15: READ XS$:T$(1) = X$: NEXT 

3100 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D.E,F 

3120 REM ------------ identification Disquette ----- 

3130 HOME : PRINT "Drive (0-3)?";: GET R$: PRINT R$;:" 
OK” 


3132 R= VAL (R$):IFR<OORR>3 THEN VTAB PEEK 
(37): GOTO 

3130 

3133 IF R = 0 THEN TYPE = 3:BU = 48984:NB = 192:U$ = 
"-":F$ = "*": GOTO 3180 

3134 POKE PA + 1,UN(R) 

3135 IFR =3 THEN GOTO 3160 

3140 POKE BLOC, 136: CALL MLI 

3150 DOS = ( PEEK (BU + 3) = 3) 

3160 POKE BLOC,2: CALL MLI 

3170 TYPE = (PEEK (BU + 2) AND NOT PEEK (BU + 3))* 
(NOT PEEXK (BU + 4) + 1) 

3175 TYPE = TYPE‘ (R< > 3)+(R= 3) 

3180 RETURN 


Programme INITPAS3.3 





10 HOME :00 = 256:FF = OO - 1 
20 DEF FNHI(X) = INT (X/O0O): DEF FN LO{X) = X - OO 


[RAT 


F# 
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* INT (X/O0) 
30 DEF FN W{(X) = PEEK (X) + OO * PEEK (X + 1) 
40 DEF FN PISTE(X) = BU + 56 +4* X 
50 DIM T$(7),TY$(2):TY$(0) = "DOS3.3":TY$(1) = 
"ProDOS":TY$(2) = "Pascal" 
60 GOSUB 3000: REM Initialisation 
70 IF TYPE < > 2 THEN PRINT : PRINT "Ce n'est pas une 
disquette Pascal": CALL BELL: GOSUB 3120: GOTO 
70 
100 REM ------ Directory Pascal ----------------"- 
102 REM 
104 REM -----------" Lecture 
110 POKE CODE,.LIT: POKE BLOC,2: CALL MLI 
120 B1 = FN W(BU + 2):NB = FN W(BU + 14)}NF = FN 
W(BU + 16) 
130 BO =2 + INT (26 * (NF +1)/512):PM= INT ((NB -1)/ 
8) 
140 R = BU: GOSUB 900:VOLS = N$ + ":" 
150 IF B0O =2 THEN GOTO 190 
160 FOR | = 3 TO B0O 
170 :: POKE PA +3, FN HI(BU) + 2 * (1-2): POKE BLOC, I: 
CALL MLI 
180 NEXT 
190 PRINT : PRINT "Vous allez transformer ";VOL$ 
200 PRINT" en mixte Pascal-DOS 3.3" 
210 PRINT : PRINT "1 ère piste DOS 3.3 en n': 17”;: HTAB 
27: INPUT R$:P1 = VAL (R$): IF R$ = 7 THEN P1 = 
17 
220 VTAB PEEK (37): HTAB 28: PRINT P1 
230 IF P1 <0 OR P1 > 34 THEN CALL BELL: PRINT "n° 
piste hors limite !": GOTO 210 
240 P2 = 34: IF PM > P2 THEN P2 = PM 
250 NB = 8* P1:H = NF 
260 IF B1 <6 THEN TR = 1: GOTO 
280 
270 PRINT : PRINT "Tronquer le Directory Pascal ?N";: 
HTAB 31: GET R$: PRINT RS: IF R$ = "O" THEN TR = 
1: 1F IH > 38 THEN IH = 38 
280 PRINT : PRINT "Nbe Secteurs Directory DOS 3.3: 
15";: HTAB 32: INPUT R$:NSC = VAL (R$): IF R$ =" 
THEN NSC = 15 
290 VTAB PEEK (37): HTAB 33: PRINT NSC: PRINT 
300 IF NF =0 THEN GOTO 440 


309 REM 

310 REM ---------------- Inspection 

320 BM = 136:ERR = O:FLAG = 1: IF NB < = BM THEN BM 
= NB:FLAG = 0 


330 FOR | = 1 TO NF 

340 ::R = BU + 26 * lBH= FN W(R +2) 

350 :: IF (BH < = BM) AND (I < = 1H) THEN GOTO 390 

360 :: IF ERR THEN GOTO 380 

370 ::ERR = 1:1H = 1 - 1: PRINT : INVERSE : PRINT 
“ATTENTION";: NORMAL : CALL BELL: PRINT 
Vous allez détruire les fichiers:": PRINT 

380 :: GOSUB 900: PRINT N$; SPC( 16 - L);T$ 

390 NEXT 

400 IF ERR THEN PRINT : PRINT "Voulez-vous continuer 
?2N";: HTAB 24: GET R$: PRINT R$: IF R$ < > "O" 
THEN END ‘ 

410 IF NOT FLAG THEN GOTO 440 

420 IH = IH + 1:R = BU + 26 * IH: POKE R,136: POKER + 


3090 POKE MLI + 4, FN LO(PA): POKE MLI + 5, FN 
HI(PA) 
3100 POKE PA,3: POKE PA + 1 UNIT: POKE PA + 5,0 





3110 POKE PA + 2, FN LO(BUFFER): POKE PA + 3, FN 


HI(BUFFER) 
3111 REM 
3112 FOR I = 0 TO 7: READ Tf(l): NEXT :BADS$ = 
"CATALOG3.3" 
3114 DATA ???7,Bad ,Code, Text, Info, Data,Graf,Foto 
3120 REM ------------ Identification Disquette ---—-- 
3130 PRINT “Disquette --> Drive 2. OK?";: GET RS: 
PRINT * OK" 


3140 POKE BLOC, 136: CALL MLI 

3150 DOS = ( PEEK (BU + 3) = 3) 

3160 POKE BLOC,2: CALL MLI 

3170 TYPE = (PEEK (BU + 2) AND NOT PEEXK (BU + 3))* 
(NOT PEEXK (BU + 4) +1) 

3180 RETURN 


2,144: POKE R + 3,0: POKE R + 4,1 

430 POKE R + 6, LEN (BAD$): FOR J = 1 TO LEN (BAD$): 
POKE R + 6 + J, ASC ( MIDS (BADS$,J,1)): NEXT 

439 REM 

440 REM ------ Mise à Jour 

450 POKE BU + 14, FN LO(NB): POKE BU + 15, FN 
HI(NB): POKE BU + 16,1H: IF TR THEN POKE BU + 
2,4 

460 POKE CODE,ECRIT 

470 FOR 1 = 2 TO BO 

480 :: POKE PA + 3, FN HI(BU) + 2 * (1-2): POKE BLOC,I: 
CALL MLI 


490 NEXT 

500 REM -—-— Directory DOS 3.3 
502 REM 

504 REM----------------- Ecriture secteurs Directory 


510 FOR I = 0 TO 511: POKE BU + 1,0: NEXT 

520 POKE CODE,ECRIT 

530 POKE BU + 257,17: POKE BU + 258,14: POKE 
BLOC, 143: CALL MLI 

540 IMIN = 1:OC = O:F = 0 

550 IF NS < 15 THEN IMIN = 7 - INT ((NS - 1)/2):OC = 
16382:F = 12288 

560 FOR I = 6 TO IMIN STEP - 1 

570 :OC =OC-FF=F7/4 

580 :::FIN = (1 < = IMIN) AND (NSC < 15) 

590 :: POKE BU + 1,17: POKE BU + 257,17 * NOT FIN 

600 :: POKE BU + 2,2 * |: POKE BU + 258,(2 “ 1-1)* NOT 
FIN 

610 :: POKE BLOC, 143 - I: CALL MLI 


620 NEXT 

630 REM -------------— Création VTOC 

640 POKE BU + 2,15: POKE BU + 257,17: POKE BU + 
258,13 


650 POKE BU + 3,3: POKE BU + 6,FF - 1 

660 POKE BU + 39,122: POKE BU + 48,16: POKE BU + 
49,1. 

670 POKE BU + 52,P2 + 1: POKE BU + 53,16: POKE BU + 
55,1 

680 FOR | = P1 TO P2 

690 :: POKE FN PISTE(I),FF: POKE FN PISTE(I) + 1,FF 

700 NEXT 

710 POKE FN PISTE(17), FN HI(OC): POKE FN 
PISTE(17) + 1, FN LO(OC) 

720 POKE BLOC,136: CALL MLI 

890 END 

899 REM -—- champ Nom 

900 T$ = T$(FN W(R+ 4))}L= PEEK (R + 6):N$ =" 

910 FORJ = 1 TO LIN$ = N$ + CHRS ( PEEK (R + 6 + J)): 
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NEXT 


930 RETURN 

3000 REM --------. Bip-Bip ProDOS |! ” 

3010 BELL = 816: FOR 1 = 0 TO 21: READ X: POKE BELL 
+ 1,X: NEXT 

3020 DATA 


162,32,169,2,32,168,252,141,48,192,169,36,32,1 
68,252,141,48,192,202,208,237,96 
3030 REM ------- Initialisation Appel MLI ------- 
3040 MLI = 768:BUFFER = 8192:UNIT = 224: REM Drive 
1:96 --- Drive 2:224 
3050 PA = 784:BLOC = PA + 4 
3060 CODE = MLI + 3:LIT = 128:ECRIT = 129 
3070 FOR I = 0 TO 21: READ X: POKE MLI + I,X: NEXT 
3080 DATA 
32,0,191,128,16,3,144,6,32,139,190,32,9, 190,96, 
0,3,224,0,32,2,0 





Programme DUMPDIRPAS 


10 HOME :00 = 256:FF = OO - 1:D$= CHRS$ (4):ESCS$ = 
CHRS (27) 
20 DEF FNHI(X)= INT (X/OO): DEF FN LO(X) = X - 00 
* INT (X/O0) 
30 DEF FN W{(X) = PEEK (X)+OO* PEEK(X+ 1) 
40 DIM T$(7),TY$(2):TY$(0) = "DOS3.3":TY$(1) = 
"ProDOS":TY$(2) = "Pascal" 
50 GOSUB 3000: REM Initialisation 
60 IF TYPE < > 2 THEN PRINT : PRINT "Ce n'est pas une 
disquette Pascal": CALL BELL: GOSUB 3120: GOTO 
60 
70 PRINT "Sortie: Ecran (0) / Imprimante (1) 20";: HTAB 
37: GET R$:OUT = VAL (R$): PRINT OUT: IF OUT < > 
NOT NOT OUT THEN CALL BELL: GOTO 70 
100 REM -------- Directory Pascal 
110 POKE CODE,LIT 
120 FORB=2TO5 
130 :: POKE PA + 3, FN HI(BU) + 2 * (B - 2): POKE 
BLOC, B: CALL MLI 
140 NEXT 
150 IF NOT OUT THEN GOTO 180 
160 PRINT D$;"PR#1" 
170 PRINT ESCS$ + "Q" 
180 NF = FN W(BU + 16) 
190 R = BU: GOSUB 900:VOLS = N$ + ":" 
200 HOME : PRINT TAB( 9);"Dump du répertoire de 
"VOLS: PRINT 
210 PRINT "début fin /type /'; TAB( 18);"nom"; TAB( 
28);"/ EOF / date :": PRINT 
220 FOR I = 0 TO NF 
230 ::R = BU +26*] 
240 :: FORJ = 0 TO 25: POKE 801, PEEK (R+ J): CALL 
PRBYTE: NEXT 
250 :: PRINT ":"; 
260 :J = 0: GOSUB 700 
270 :J = 2: GOSUB 700 
280 :: PRINT T$(FN W(R + 4)" " 
290 :: GOSUB 900: PRINT L; SPC(3- LEN (STR$ 
(L)));,N$; 


Pom's n° 19 


300 ::IF1< >0 THEN GOTO 330 

310 :: PRINT SPC(8-L); FN W(R + 14); "; FN W(R + 16);" 
" FNW(R+18);""; 

320 ::D = FN W(R + 20): GOSUB 800: PRINT J$:" ": FN 
W(R + 22);" "; FN W(R + 24);: GOTO 350 

330 :: PRINT SPC{ 16 - L);J = 22: GOSUB 700 

340 ::D = FN W(R + 24): GOSUB 800: PRINT J$: 

350 :: PRINT 

360 NEXTI 

370 IF OUT THEN PRINT ESC$ + "E": PRINT D$:"PR#3" 

400 END 

699 REM ----affichage tabulé 

700 X= FN W(R + J): PRINT X; SPC(4 - LEN ( STR$ 
(2)}; 

710 RETURN 

799 REM ---champ Date 

800 A = INT (D/512):D = D-512* A:A$ = RIGHTS (0° + 
STR$ (A),2) 

810 J= INT (D/16)J$ = RIGHT$ ("0"+ STR$ (J),2) 

820 M=D-16*J:M$ = RIGHTS ("0"+ STR$ (M),2) 

830 J$ = J$ + "-" + M$ +"-" + A$ 

840 RETURN 

899 REM ---champ Nom 

900 N$="L= PEEK (R+6) 


910 FORJ = 1 TO L:N$ = N$+ CHRS ( PEEK (R + 6 + J)): 
NEXT 


920 RETURN 

3000 REM --------- — Bip-Bip ProDOS |! ----- 

3010 BELL = 816: FOR I = 0 TO 21: READ X: POKE BELL 
+ 1,X: NEXT 

3020 DATA 162,32,169,2,32,168,252,141 ,48,192, 
169,36,32,168,252,141,48,192,202,208,237,96 

3030 REM -------- Initialisation Appel MLI ------" 

3040 MLI = 768:BUFFER = 8192:UNIT = 224: REM Drive 
1:96 --- Drive 2:224 

3050 PA = 784:BLOC = PA + 4 

3060 CODE = MLI + 3:LIT = 128:ECRIT = 129 

3070 FOR 1 = 0 TO 21: READ X: POKE MLI + I,X: NEXT 

3080 DATA 32,0,191,128,16,3,144,6,32,139,1 90,32, 
9,190, 96,0,3,224,0,32,2,0 

3090 POKE MLI + 4, FN LO(PA): POKE MLI +5, FN 
HI(PA) 

3100 POKE PA,3: POKE PA + 1,UNIT: POKE PA + 5,0 

3110 POKE PA + 2, FN LO(BUFFER): POKE PA + 3, FN 
HI(BUFFER) 

3111 REM 

3112 PRBYTE = 800 

3113 FOR 1= 0 TO 8: READ X: POKE PRBYTE + I,X: 
NEXT 

3114 DATA 169,0,32,218,253,32,87,219,96 

3115 FOR I = 0 TO 7: READ T$(l): NEXT 

3116 DATA ????,Bad , Code, Text,Info, Data, Graf, Foto 

3120 REM ------------ Identification Disquette --—-- 

3130 PRINT "Disquette --> Drive 2. OK?";: GET R$: 
PRINT " OK” 

3140 POKE BLOC, 136: CALL MLI 

3150 DOS = ( PEEK (BU + 3) = 3) 

3160 POKE BLOC,2: CALL MLI 

3170 TYPE = ( PEEK (BU + 2) AND NOT PEEK (BU +3))* 
(NOT PEEK (BU + 4) + 1) 

3180 RETURN 
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MOUSECAT 


Patrice Neveu 


Souriez donc ! 


Je veux dire par là : servez-vous de 
la souris de votre bel Apple //c ou de 
celle que vous pourrez, comme je l'ai 
fait, installer dans le slot 4 de votre 
Apple //e ou II+. 


C’est le but du programme MOUSE- 
CAT OBJ que l’on lance par MOU- 
SECAT START. Il remplit le rôle de 
tout bon programme de ‘boot’, à sa- 
voir un catalogue et le lancement 
aisé du programme désiré. 


Utilisation 


Lancer MOUSECAT START. Dès 
lors, l’utilisateur a le choix entre : 


CATALOG : qui permet ensuite de 
choisir le catalogue des fichiers AP- 
PLESOFT, INTEGER, LANGAGE 
MACHINE, et enfin un CATALOG 
normal avec tous les fichiers que l’on 
aurait habituellement. 

À ce stade, une nouvelle feuille ap- 
paraît et permet de passer aux deux 
prochains secteurs du catalogue en 
cliquant >>". Chaque feuille de ca- 
talogue donne au maximum 14 fi- 
chiers, sachant qu'il y a 7 fichiers par 
secteur de catalogue. Il est ensuite 
possible de cliquer ’<<’ afin de re- 
venir sur les fichiers précédents. 


Pour lancer un programme, allez 
simplement le cliquer sur le catalo- 
gue. Vous pouvez bien sûr quitter ce 


NORMAL 


FICHIERS 
FICHIERS 


FICHIERS 
QUITTER 





APPLESOFT 
INTEGER 
L.MACHINE 


catalogue pour revenir au menu du 
début afin, par exemple, de changer 
de lecteur de disquettes. Pour cela, 
cliquez QUIT en bas de la page puis, 
pa au menu, cliquez DRIVE 


Enfin, pour sortir définitivement de 
MOUSECAT, appuyer sur l'option 
SORTIR / BOOTER. Vous pourrez 
alors aller vers le Basic, booter un 
disk, ou revenir sur votre décision et 
donc au menu principal. 


Au niveau assembleur 


Le programme MOUSECAT a été 

écrit avec le LISA 2.5 tandis que 

Vr-Ha START l’a été avec BIG 
C. 


Explications sur la 
présentation 


Imitation des logiciels du 
Macintosh 


Le programme utilise les interrup- 
tions que la carte de la souris envoie 
au 6502 (lignes 68 à 123 et 480 à 
550). 

Cette technique a été expliquée dans 
le manuel vendu avec la carte (je 
crois, toutefois, que dans celui de la 
souris pour l'Apple //c, les explica- 
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tions ne portent que sur MOUSE- 
PAINT) et bien sûr plus récemment 
dans le Pom's 15. 

Depuis la ligne 125 à 246, le pro- 
gramme analyse ce qu'on lui de- 
mande d'exécuter. Puis, après avoir 
affiché un nouveau menu, il saute 
aux lignes 612 — 663 puis en 869 — 
1023. 

Les lignes 254 à 479 et 664 à 819 
sont réservées aux différents sous- 
programmes nécessaires au bon dé- 
roulement du programme. C'est là 
que se situe, entre autres, CHROUT 
qui réalise la sortie HR des caractères 
ASCII dont la table est à partir de 
1060. Ceux-ci sont définis ainsi : 


Par exemple, pour un C: 


8 
1 
1 
1 
1 
1 
1 
1 
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C'est ici aussi qu'est la routine qui 
décortique le catalogue lu par 
RWTS. Les explications précises peu- 
vent être trouvées dans le manuel du 
DOS, vendu avec l'Apple (pages 89 
à 93 et pages 122 à 124). 


D'autre part, on peut signaler que si 
MOUSECAT ne fonctionne pas en 
ProDOS, il fonctionne parfaitement 
bien en DOS 3.3, ZDOS et D-DOS. 
Voilà, j'espère que ceci vous séduira 
et permettra aux lecteurs de Pom'’s 
de mieux comprendre la structure du 
catalogue qu'ils sollicitent tous les 
jours mais qui reste souvent mysté- 
rieux, et qu'il permettra une certaine 
démythification de la beauté des pro- 
grammes de Lisa, Macintosh, et plus 
récemment, de MOUSEPAINT, 
JANE et autres. 


N.D.LR: l'importance des fichiers 
sources et objets ne nous permet 
malheureusement pas de les publier. 
Ils figurent bien entendu sur la dis- 
quette d'accompagnement. 
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Destination Aventure Apple //e, 
/Iplus, et //c de Delton Horn, Edi- 
tions du PSI - 240 pages - 140 FF. 
Encore une traduction. 


La façon dont on programme un jeu 
d'aventure est expliquée en détail 
autour d’un premier jeu. C’est clair 
et détaillé, mais pas forcément per- 
formant au niveau de la programma- 
tion. Ainsi, à un endroit, on teste la 
même chaîne sur une cinquantaine 
de valeurs possibles, au lieu d’effec- 
tuer une recherche dichotomique 
dans une table alpha; cela fait en 
moyenne 25 comparaisons au lieu 
de 5 ! Trois autres jeux sont listés en 
fin d'ouvrage, accompagnés d’expli- 
cations et d’organigrammes. 


Basic Applesoft Lexicum, Ma- 
nuel de référence alphabétique 
Basic / Dos 3.3 / ProDOS de Paul 
Merry, Mnémodyne (26 rue Lamar- 
tine, 75009 Paris) - pavé - 168 FF. 


Cet ouvrage date d’un an, mais nous 
n'avions pas encore eu l’occasion de 
le voir. Il ajoute à l’ancien manuel de 
référence, déjà couvert dans Pom's, 
62 pages sur le ProDOS, bien utiles 
dans la mesure où la littérature rela- 
tive au ProDos est encore pauvre. 
Enfin, maintenant, la reliure est un 
peu plus solide. 


Les matériels 


Apple //c, guide de l'utilisateur 
de Thomas Blackadar, Sybex - 147 
pages - 98 FF. Traduction. 


Cet ouvrage est très général et ap- 
porte un début d'initiation au Basic, 
donnant à la fin un quide de réfé- 
rence du Basic limité aux seuls mots 
réservés introduits dans le livre (?). A 
consulter pour voir si on ne préfère 
pas lire la doc Apple et faire des éco- 
nomies. 


Les ressources de l’Apple //c de 
Nicole Bréaud-Pouliquen, Editions 
du PSI - 106 pages - 85 FF. 


Le premier ouvrage en français où 
lon trouve un certains nombre de 
renseignements pour la programma- 
tion du //c, avec en particulier la liste 
des instructions du 65C02. A conseil- 
ler à tous ceux qui programment en 
assembleur sur le //c et, à présent, à 
ceux qui auront mis le chip du //c sur 
leur Apple II. 


Macintosh : outils, progiciels, 
application de Xavier Gaucherand, 


Pom'’s n° 19 


Edimicro - 237 pages - 148 FF. 


Un des rares ouvrages généraux sur 
le Macintosh qui ne se contente pas 
de refaire le mode d'emploi de base 
du Mac avec ses logiciels ”’résidents” 
et Muitiplan. Cinq parties : présenta- 
tion du matériel, systèmes et langa- 
ges, logiciels d'application, domaines 
d'utilisation et choix d’une configura- 
tion. Les analyses de points forts et 
faibles des logiciels sont assez bien 
vues. Un livre intéressant. 


Logiciels et langages 


dBase II - Applications de Chris- 
tophe Stehly, Sybex - 268 pages - 
148 FF. 


Le livre a été réalisé en utilisant la 
version 2.4 francisée de dBase Il. 
Une première partie illustre les possi- 
bilités du programme en gestion de 
fichiers; la programmation de dBase 
Il étant couverte dans une seconde 
partie, à l’aide d'exemples de gestion 
variés. Un dernier chapitre bien inté- 
ressant explique comment il faut s’y 
prendre pour bien constituer ses fi- 
chiers. Ouvrage clair et bien pré- 
senté. 


Le secrétariat par traitement de 
texte de Ilya Virgatchik, Marabout - 
287 pages - 160 FF. 


Nous sommes toujours dans les pro- 
duits sous CP/M; bien que cela ne 
soit pas apparent dans le titre. Il 
s'agit d’un manuel pratique et 
complet de Wordstar. 


Macintosh Microsoft Basic de 
Rick Dayton, Prentice Hall Internatio- 
nal - 276 pages grand format, en an- 
glais - $ 23.35. 


Après une description sans grand in- 
térêt du Macintosh, on trouve dans 
cet ouvrage. la documentation du 
Basic Microsoft 1.0! J'exagère un 
peu car la documentation fournie 
avec l’interpréteur est plus complète. 
Donc, si vous avez obtenu votre 
Basic par la voie normale, abstenez- 
vous d'acheter cet ouvrage qui, par 
contre, pourra rendre service aux pi- 
rates. 


Programmez votre Macintosh de 
Alain Andrieux et Christophe Drou- 
lers, McGraw-Hill - 250 pages - 120 
FF. 


Peut être le seul ouvrage indispensa- 
ble aux utilisateurs du Mac, du moins 
à ceux qui programment où comp- 
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tent programmer leur machine. Il ne 
s’agit pas d'un manuel de référence 
du programmeur, loin de là, mais la 
lecture de cet ouvrage permet d’ac- 
quérir une vue d'ensemble du ”’sys- 
tème Mac”, à savoir : la gestion de la 
mémoire, l'interface utilisateur, etc. 
et surtout la fabuleuse ROM de 
64Ko. Passionnant. 


Macintosh, quels logiciels ? de 
Pierre Courbier, ETSF - 143 pages 


Démonstration, de rapide à très sché- 
matique, d’un certain nombre de lo- 
giciels pour Macintosh. Un fourre- 
tout bien rédigé, mais dont l'utilité ne 
nous semble pas évidente. Réalisé en 
ImageWriter, mais en qualité cour- 
rier.… 


Multiplan et Chart sur Macin- 
tosh de Xavier Bouilloux, Edimicro - 
235 pages - 159 FF. 


Cela m'énerve toujours de voir un 
livre sorti sur ImageWriter sans 
même utiliser la qualité courrier. 
Certes, cela gagne du temps, mais 
quand même... La première partie, 
guide de l'utilisateur pour le livre, 
Macintosh, Multiplan et Chart, est 
très succinte; à peine 30 pages pour 
l'ensemble des deux logiciels. Ce 
n’est pas comme cela qu’on appren- 
dra à les utiliser. La seconde partie 
comporte 10 exemples, dont 5 avec 
passages au graphique. L'intérêt 
principal de l'ouvrage tient à l’illustra- 
tion de l’utilisation de Chart, sur le- 
quel il existe moins d'ouvrages. Nous 
aurions préféré voir un livre unique- 
ment sur Chart, avec un chapitre sur 
la communication avec Multiplan. 


Multiplan sur Macintosh de Goul- 
ven Habasque, Sybex - 233 pages - 
148 FF. 


La première partie concerne l'initia- 
tion à Multiplan sur Macintosh, avec 
seulement 53 pages très aérées;, ce 
n'est donc pas pour vous initier à 
Muiltiplan que nous vous conseillons 
cet ouvrage; l'initiation n’est pas 
assez approfondie à notre avis. Ce 
qui est intéressant, c'est la suite; 27 
petits tableaux: d'analyse numérique 
(6), de géométrie (6), de statistiques 
(6), d'économie (5), et de gestion 
(4). Nous vous conseillons de consul- 
ter ce livre avant de l’acheter, pour 
voir si les exemples vous intéressent. 
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Micro-informations 


Jean-Michel Gourévitch 


Le mois passé, à Cupertino, on ne 
parlait plus que licenciements (1500 
sont prévus) et baisse de la progres- 
sion des ventes. Face au marasme 
du marché de la micro-informatique, 
Apple à donc du fermer trois de ses 
six usines, et mettre à pied un cin- 
quième de ses effectifs. 


Ces mesures drastiques ont été ac- 
compagnées d’une réorganisation in- 
terne spectaculaire. Point principal : 
Steve Jobs, le fondateur, a été 
contraint de ‘prendre du champ”. 
Jean Louis Gassée, le PDG d'Apple 
France, s'est installé à Cupertino 
pour s'occuper du marketing. Del 
Yocam, qui couvrait la division Apple 
//, est devenu directeur de tous les 
produits. Après Steve Wozniak, qui 
avait quitté Apple en février, voici 
donc Steve Jobs sur la touche. 

Ces mesures pourraient bien débou- 
cher sur un sursaut de vitalité, et se 
traduire par des améliorations du 
Macintosh, ainsi qu’une nouvelle ver- 
sion de l'Apple //. 

C'est tout au moins l'analyse expri- 
mée dans un article particulièrement 
documenté du très sérieux Wall 
Street Journal, paru à la fin du mois 
de juin. 

Dans cet article, on apprend notam- 
ment qu'Apple a décidé de jouer la 
partie en collaborant avec les fabri- 
cants d'accessoires. Apple a informé 
les fabricants de sa décision de modi- 
fier le système d'exploitation du Ma- 
cintosh, afin de faciliter la gestion 
d'un disque dur. Jusqu’alors, l'utilisa- 
tion des disques durs avec le Mac 
posait un certain nombre de problè- 
mes tenant d'une part à l'incapacité 
du Finder à gérer plus de 134 
icônes, et d'autre part à la connec- 
tion obligatoire par une des entrées 
séries. Le seul disque dur qui parve- 
nait à surmonter ces handicaps était 
l'Hyperdrive de General Computer, 
installé à l'intérieur même du Macin- 
tosh. Le montage de l'Hyperdrive 
avait un inconvénient majeur : il fal- 
lait ouvrir le Mac, et cela annulait la 
garantie. Dorénavant, ce ne sera plus 
vrai: Apple a modifié ses conditions 
de garantie pour permettre l'installa- 
tion d’un HyperDrive. Le Wall Street 
Journal pense même qu'Apple pour- 
rait décider de vendre directement 
l'HyperDrive. On pensait qu'Apple 
allait introduire à l'automne un ‘Big 


Mac” doté d'un nouveau système 
d'exploitation, et nanti d'une mé- 
moire vive d’un mega-octet et d'un 
disque dur externe de 20 à 40 Mega- 
octets. Peut être sera-ce finalement 
un Mac ‘’aonflé” et équipé d’un Hy- 
perDrive. Un système d'exploitation 
plus rapide, davantage de mémoire 
et un disque dur, voici de quoi chan- 
ger la vie de tous les utilisateurs du 
Macintosh. À quel prix ? Là dessus, 
c'est encore le mystère. 


Un Apple // plus puissant 


Dans le même article, il est fait état 
d’une nouvelle version de l'Apple //, 
qui sortirait dans les douze prochains 
mois, et serait doté d’un micropro- 
cesseur plus rapide ainsi que de dis- 
quettes d’une capacité plus impor- 
tante. Ce portrait ressemble 
énormément à l'Apple // équipé d’un 
microprocesseur 16 bits dont les lec- 
teurs de ces Micro-informations ont 
déjà pu lire la description. Quant au 
lecteur de disquettes miracle, il s’agit 
d'un modèle fabriqué par Sony sous 
le nom ’Liron”’, qui utilise les mêmes 
disquettes de trois pouces et demi 
déja employées sur le Macintosh. 
Seule différence : ce lecteur est dou- 
ble face. Sa capacité : 400K par face, 
soit 800K au total. Pas mal non, 
comparé aux 143K actuels des lec- 
teurs de l'Apple // ? Ce lecteur mira- 
cle confèrera même au // une capa- 
cité de stockage plus importante que 
celle du Macintosh. Il ne serait, dans 
ces conditions, pas impossible que 
l'Apple // devienne un jour un 
concurrent sérieux du Mac. Ce que 
Steve Jobs voulait, dit-on, éviter à 
tout prix. 


Baisses de prix ? 


Aux Etats Unis. on commence à 
trouver l'Apple //c pour environ 600 
dollars. En France, Apple a 
commencé à vendre une promotion 
composée d'un Apple //c, d'Apple- 
Works, et d'un sac de transport pour 
9990F. Officiellement, cette “affaire” 
est réservée aux étudiants. Mais qui 
ne connaît pas un étudiant ? 


Des fenêtres pour le // 


Les programmeurs se sont en tous 
cas remis à travailler sur ce vieil 
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Apple //, en exploitant toutes les res- 
sources de la souris, des fenêtres et 
des menus déroulants. Certains pro- 
grammes entrevus ressemblent donc, 
d'ores et déjà, furieusement à ceux 
du Macintosh. On peut en attendre 
toute une vague pour le Sicob, ou 
pour Noël. Une nouvelle version 
d'Appleworks avec souris et menus 
déroulants serait ainsi sur le métier. 
En France, Version Soft préparerait 
un traitement de texte graphique très 
semblable à MacWrite. Chez d’autres 
concepteurs de logiciels, on pense ta- 
bleurs, ou réalisation de graphiques. 


Un super tableur 


En attendant, le programme vedette 
de l'été pour l'Apple // n'utilise ni 
souris, ni graphiques, ni menus dé- 
roulants. Pire ! ce n’est ni un intégré, 
ni un programme révolutionnaire 
façon ‘Think Tank”. Il s’agit d’un 
banal tableur. Un tableur ? Quelle 
idée, direz-vous, après Visicalc qui fit 
la fortune d'Apple, et Muitiplan qui 
fit celle de Microsoft. Eh bien, Su- 
percalc3a de Sorcim semble ac- 
tuellement tout simplement le pius 
puissant des tableurs pour le //. Jugez 
plutôt: 254 lignes, 63 colonnes et 
15000 cases disponibles. Une gestion 
très fine de la mémoire n'utilisant 
cette denrée précieuse que pour les 
cases contenant des données, une vi- 
tesse de traitement quatre fois supé- 
rieure à celle du tableur d'Apple- 
works (sur un // équipé d’une carte 
accélérateur, Supercalc tournerait 
deux fois plus vite que sur un IBM 
PC), 50 fonctions intégrées, aussi 
bien trigonométriques que financiè- 
res. Et la possibilité, en prime, de tra- 
duire les données en graphiques et 
en couleurs, ou de les recevoir ou les 
envoyer par modem. Voici un pro- 
gramme (dans l'esprit de Lotus 1-2- 
3. bien que ce ne soit pas un intégré) 
qui transforme un tranquille Apple // 
en super IBM, pour 195 dollars. 


Retombées d’Apple Expo 


À la mi-juin, les visiteurs d'Apple 
Expo ont pu admirer (outre Super- 
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tin 


Calc) une fournée de logiciels nou- 
veaux. Parmi eux: ClickWorks de 
Contrôle X, un gestionnaire de fi- 
chiers graphiques souris avec tableur 
intégré (2350 F), Version Com, de 
Version Soft, un programme de 
communications avec souris et 
menus déroulants, Varicalc de Del- 
taSoft, créé par un pilote de ligne 
pour réaliser ses plans de vols, c’est 
devenu un tableur multi-entrées affi- 
chant sous forme de courbes l’inte- 
raction de plusieurs paramètres. 


Les possesseurs de //e peuvent, eux, 
disposer d'une nouvelle carte d’ex- 
tension couleur avec 64K supplé- 
mentaire : c’est la Féline, qui rem- 
place l’ancienne carte EVE, et offre 
des capacités graphiques très éten- 
dues. Les graphiques de Version 
Calc en double haute résolution gra- 
phique prennent ainsi, en couleurs, 
une allure étonnante. 2520F. 


Pendant ce temps, aux Etats Unis, 
un programme utilitaire connu de 
tous les utilisateurs d'Apple n’en finit 
pas de progresser : c'est le copieur 
Copy II Plus de Central Point 
Software. On en est à la version 5.0 
et il est devenu automatique : on 
tape le nom du programme à copier, 
et le paramétrage s'effectue automa- 
tiquement. 40 dollars. Street Elec- 
tronics, le grand spécialiste des in- 
terfaces, a conçu le LiveWire. C'est 
un câble de liaison avec l'imprimante 
’intelligent”. Il comporte une carte 
horloge/calendrier incorporée dans 
son connecteur, et un adaptateur 
convertissant la sortie série en sortie 
parallèle (permettant d’utiliser d’au- 
tres imprimantes que l’ImageWriter 
Le un Apple //). Moins de 100 dol- 
ars. 


Du Hard pour le Mac 


En attendant que le Mac devienne 
un jour un système ‘’ouvert”, le voici 
doté d'une impressionnante gamme 
d'accessoires et d'extensions. Le 
mois dernier, Pom's vous parlait 
d'une possibilité d'extension à 1 
Mega. Cette modification est désor- 
mais possible en France, grâce à 
MacMega de P-Ingéniérie. 

Cette filiale de Polygone informati- 
que se propose de transformer un 
Macintosh 128k ou 512K en Macin- 
tosh de 1024K. La mémoire centrale 
élargie étant directement adressable. 
tous les logiciels peuvent l'utiliser. 
Avec le switcher, c'est un rêve, on 
peut faire tourner plusieurs applica- 
tions simultanément, sans se trouver 
à court de mémoire. Avec un disque 
virtuel (un programme simulant un 
lecteur de disque dans la mémoire 
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de Macintosh), tel que Speedy, 
conçu aussi par P-Ingéniérie les 
programmes tournent avec une rapi- 
dité spectaculaire. Cette modification 
coûterait 15000 francs pour un Ma- 
cintosh 128K, et 10000 pour un Mac 
512K. L'opération est effectuée en 
cinq jours. 

Attention cependant : en l’état actuel 
des conditions de vente, cette greffe 
de mémoire annule la garantie du 
constructeur. 


Autres accessoires 
intéressants pour le Mac 


Le Port Power d’Assimilation. 
Cet adaptateur qui se branche sur la 
sortie imprimante permet d’utiliser le 
Mac avec des accessoires fonction- 
nant en ‘parallèle”, et notamment 
tous les périphériques IBM. Mais une 
sortie située sur l'adaptateur permet 
de conserver l'usage de la sortie 
série. Série ou parallèlle, plus besoin 
de choisir. 79 dollars. 

Le Mac Nifty Switch du Kette 
Group permet, lui de brancher 
deux périphériques sur le même 
port, et de choisir entre les deux par 
un bouton (prix 35 dollars), le Mac 
Nifty Stereo Music System trans- 
forme le son monophonique du Mac 
en son pseudo-stéréophonique (prix 
80 dollars, ampli et haut parleurs 
compris), enfin le MacNifty Joys- 
tick Converterpermet d'utiliser un 
joystick en guise de souris (45 dol- 
lars).Utiliser un autre accessoire que 
la souris, c'est décidément un rêve 
partagé. La MacTablet de Summa- 
graphics remplace la souris par une 
tablette et un stylo optique. Un must 
pour les dessinateurs et les illustra- 
teurs, que la souris rebutait. 


Moins intéressant 


Dès qu’un appareil, quel qu'il soit, a 
du succès, on voit fleurir autour de 
lui une foule d'accessoires plus ou 
moins étranges, le Mac n'échappe 
pas à la règle. MouseMat est un 
tapis destiné à recevoir les déplace- 
ment de la souris, avec mise à la 
masse du Mac pour évacuer les char- 
ges électrostatiques. 540 FF. Mouse- 
Medic est un kit de nettoyage, tou- 
jours pour la souris, qui comporte un 
pinceau soufflant, une bombe d'air 
comprimé, une petite bouteille de li- 
quide de nettoyage ‘’spécial”, et... un 
chiffon ! Le tout pour 300 FF. Mou- 
seHouse est une petite boîte en 
plastique qui vient se coller sur un 
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‘flan du Mac, afin de recevoir la 


souris lorsquelle n'est pas utilisée. 


- Très joli... 120 FF. 


Le principal avantage de ces acces- 


* Soires, croyez-en notre expérience, 


c'est qu’on peut très bien s’en pas- 
ser ! 


Logiciels, du sérieux 


Macintosh a suscité une avalanche 
de programmes de gestion de don- 
nées, et ces programmes ont à leur 
tour enfanté d’une nouvelle généra- 
tion de bases de données, le plus 
souvent relationnelles, dotées parfois 
de macros-commandes et transfor- 
mables en fonction des besoins de 
l'utilisateur final par une société de 
service informatique. Parmi ceux-ci : 
Quatrième dimension d’ACI, 
Omnis 3, diffusé par KA, et Mac- 
Base 500 de Contrôle X. 

Le Macintosh avait déja un tableur 
extra : Multiplan de Microsoft. Il fal- 
lait l’astuce de Microsoft pour le 
transformer en super-tableur; c’est 
Excel. Sortie prévue à l'automne. 
Tableur et Graphiques intégrés, 256 
rangées, 16384 colonnes, 42 types 
de graphiques multi-fenêtres. On l’a 
compris, c'est du sérieux. Bizarre- 
ment, ce super-tableur est apparem- 
ment plus proche de Lotus 1-2-3 
que ne l’est Jazz. Excel deviendra à 
coup sûr un des best-sellers des logi- 
ciels pour Macintosh. 


Pour dessiner 


Tandis que sort la version 1.8 de 
MacDraw, voici un autre pro- 
gramme qui lui ressemble bigrement, 
mais qui comporte de notables amé- 
liorations, c'est MacDraft de IDD. 
Possibilité de ‘’zoomer” sur une par- 
tie du dessin, pour y ajouter de fins 
détails, d'opérer un panoramique, 
pour voir l'ensemble, 16 échelles, 
possibilité d'opérer des rotations 
d'objets par incréments d’un degré, 
ou de distribuer ces objets le long 
d’une ligne, possibilité d'avoir 4 do- 
cuments séparés sur l'écran simulta- 
nément, et d'y transférer des élé- 
ments, possibilité d'y coller des 
images de MacPaint, ligne fléchée 
pouvant indiquer automatiquement 
les dimensions d'un objet. Après un 
Super tableur, voici un super Mac- 
Draw.Pour désigner un dossier ou 
une application, Icon Switcher de 
PBI Software permet de dessiner et 
de personnaliser les icônes (Prix 19 
dollars). Et pour ceux qui manquent 
de talent où d'imagination, il existe 
déja des icônes toutes dessinées : 
Icon Libraries (prix 19 dollars). 
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Pour imprimer 


Il est loin le temps où les utilisateurs 
de Macintosh étaient strictement limi- 
tés à l’utilisation de l’ImageWriter 
d'Apple. SoftStyle propose des 
drivers” permettant d'utiliser avec le 
Mac une imprimante Epson (Eps- 
tart : 45 dollars), une ThinkJet Hew- 
lett Packard (Jetstart: 45 dollars), 
une LaserJet d'Hewlett Packard (La- 
serstart : 95 dollars). 


Pour les fanas des 
statistiques 


Statview de Brainpower est un 
programme de statistiques interactif, 
permettant la vision simultanée des 
données et des analyses. Prix 195 
dollars. StatFast de Statsoft per- 
met toutes corrélations, Anova, Ré- 
gressions multiples, etc et l’obten- 
tion de graphiques. Prix : 99 dollars. 
StatWorks de Heyden & Son dis- 
pose des même fonctions, d'une pré- 
cision de 19 chiffres après la virgule, 
intègre aussi un modèle graphique 
permettant d'obtenir des histogram- 
mes en trois dimensions, et d'utiliser 
50000 points de données : 100 dol- 
lars. Enfin, ClickGraph de 
Contrôle X, plus simple et moins 
scientifique, est la partie graphique 


de CX MacBase enrichie de possibili- 
tés de Zoom, et capable de récupérer 
des données de Chart ou Muitiplan. 
Prix : 1200F. 


Enfin des simulations. 


L'un des plus éblouissants jeux de si- 
mulation s'appelle Gato de Spec- 
trum Holobyte. Il permet à l’utilisa- 
teur de simuler le pilotage d’un sous 
marin pendant la seconde guerre 
mondiale. Jusqu'à présent, ce jeu 
réalisé avec des sons et des images 
tridimensionnelles n'existait que pour 
lIBM PC. Le voici transposé (et 
amélioré) sur le Macintosh. Images 
superbes et simulation hyper réaliste. 
Prix: 59 dollars. A quand un simula- 
teur de vol sur Macintosh ? 


Adresses 


Sorcim/IUS Micro Software 

2195 Fortune Drive, San Jose, CA 
95131 

Contrôle X 

94, rue Lauriston 75116 Paris 
Version Soft 

66, rue Castagnary 75015 Paris 
Central Point Software 

9700 SW Capitol Hwy#100 Por- 
tland OR 97219 


Street Electronics Corporation 
1140 Mark Avenue Carpinteria, CA 
93013 


P-Ingenierie 
226, bd Raspail 75014 Paris 


Kette Group 
13895 Indusrial Park Blvd - Minnea- 
polis MN 55441 


Summagraphics Corp. 
777 State Street Extension P.O. Box 
781 Fairfield CT 06430 


IDD 
1975 Willow Pass Road Suite 8, 
Concord CA 94520 


PBI Software 
1155 B H Chess Drive Foster City 
CA 94404 


SoftStyle 
7192 Kalaniannaole Hwy Suite 205 
Honolulu Hawaï 96825 


Brainpower 
24009 Ventura Bd, Calabasas, CA 
91302 


Statsoft 
2831 East 10th St. Suite 3, Tulsa OK 
74104 


Heyden & Son 
247S 41st St, Philadelphia PA 19104 


Spectrum Holobyte 
1050 Walnut, Suite 325, Boulder, 
CO 80302 





Courrier des Lecteurs 


Olivier Herz 


J'attire votre attention sur la routine 
de chargement rapide des fichiers bi- 
naires (Mr Tran-Van, Pom's N° 4 

en mode direct elle est parfaite, mais 
en mode programme, la commande 
’& suivi d'une variable” ne fonc- 
tionne que si elle est précédée d'un 
"& suivi d'un nom réel de pro- 
gramme”. Si vous en doutez, prenez 
le programme "& BLOAD' DEMO" 

sur la disquette n°, supprimez la pre- 
mière partie de la ligne 20: faites 
RUN: résultat... : 1/0 ERROR. 


D'autre part, dans le POM'S n° 16, 
rubrique Trucs et astuces, le pro- 
gramme Basic du ‘Euréka il y a un 
PEEK pour savoir si un point graphi- 
que est allumé”, ne fonctionne pas. 
C'est probablement une faute de 
frappe quelque part (à la 1ère ligne 


— PEEK (Y/64 est déjà quelque. 


chose d'impossible : imaginez que Y 
12, par exemple, et calculez le 
PEËK . .). Solution ? 


M. Tomeno Paris 


Il y a effectivement un bug sur le & 
BLOAD, mais pas tout-à-fait de la 
façon dont vous le décrivez: & 
BLOAD A$ ‘plante” avec un 1/0 
ERROR, quand il suit un accès dis- 
que autre qu’un & BLOAD "TOTO” 
(RUN, BLOAD, CATALOG ou VE- 
RIFY, par exemple). 

Après étude, on s'aperçoit que le nu- 
méro de volume est indiqué au DOS 
dans le cas du & BLOAD "TOTO” 
(lignes 85 et 86 du source), mais pas 
dans le cas du & BLOAD Af$. Cela 
explique que le bug n'ait pas lieu 
lorsqu'un & BLOAD A$ suit un & 
BLOAD "TOTO”. 
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Pour y remédier, il suffit de décaler 

_ lignes 85 et 86 avant la ligne 80, 
je propose le patch suivant: 

BLOAD CHARGE. OBJET,A$9000 

9035 : AO 00 8C EB B7 20 B7 00 

C9 22 DO 23 A9 06 85 C1 

BSAVE CHARGE.OBJ, 

A$9000,L$22B 

(bien noter DO 23 et non DO 28 

comme dans l'original). 


Il y a effectivement deux coquilles 
dans le ‘trucs et astuces” du n° 16. Il 
faut lire : 

lère ligne : A = PEEK (Y/64) 

9ème ligne : P = (P-INT(P))) = .5 





Les EPROMSs des cartes imprimantes 
Epson portant les références APLB, 
APLD et APLE comportent des bugs 
qui, pour les deux premières, empé- 
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RS 


chent l'assemblage sur papier avec 
MERLIN et, pour la dernière, per- 
turbe les tabulations. Les personnes 
intéressées peuvent prendre contact 
avec moi; j'ai en effet reprogrammé 
des EPROM sans ces inconvénients 
et dotées de nouvelles fonctions : for- 
mattage numérique avec la virgule et 
non le point, génération très simple 
de nouveaux caractères, dump écran 
texte. 


Yvan Koenig, Mosaïque Gerbino, rue 
du stade, 06620 Valauris. 





Je vous soumets ces quelques pro- 
blèmes : 

Comment charger ICARE à partir 
d'un programme sans en interrompre 
le déroulement ? 


car : 

10 PRINT CHR$(4);:'BLOAD 
ICARE,A$8000" 

20 CALL 32768 

30 PRINT ‘ICARE chargé” 

s'arrête à l'instruction 20 

Je possède la carte 80 colonnes de 
CHAT MAUVE. En utilisant ICARE 
en mode 80 colonnes, plus aucun 
accès disque n'est possible. Le DOS 
semble déconnecté. Seul un RESET 
permet de reprendre Ja main: 
comment cela se fait-il ? 


La commande MAXFILES ne mar- 
che plus après le chargement 
d'ICARE en 80 ou en 40 colonnes ! 
Comment puis-je faire passer ‘MAX- 
FILES 5” tout en utilisant ICARE ? 
En regardant attentivement le source, 
j'ai remarqué en ligne 875 le mes- 
sage & PROUT: de même, en 792, 
en pressant l'OA', on obtient & 
PROUT. Cette commande n'engen- 
drant pas de message d'erreur, je 
pense qu'elle fait quelque chose, 
mais quoi ? 

M. Amsaleg Lamorlaye 


ICARE redonne la main au Basic 
après son chargement. Pour que cela 
ne se produise pas, je vois deux so- 
lutions : 


e patcher le programme; mais cela 
oblige à trouver dans le source, 
puis l’objet, la modification à faire, 
ce qui est un peu lourd; 

e créer et lancer un fichier EXEC 
qui contient : 

BLOAD ICARE 3.1,A$8000 
CALL 32768 
RUN (application) 


ICARE n’a pas été écrit pour fonc- 
tionner en 80 colonnes, aussi ne 
vous étonnez pas si son fonctionne- 
ment en 80 colonnes pose des pro- 
blèmes. Toutefois, je dois vous signa- 
ler que cela ne déconnecte en 
principe pas le DOS, sauf peut-être si 
l'on fait un & HGR PRINT. 

MAXFILES vaut 3 par défaut lors du 
boot, ce qui place la HIMEM à 
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$9600. Mettre MAXFILES à 4 des- 
cend la HIMEM à $93AD, ce qui 
cause un conflit avec la partie table” 
(page 35) de ICARE. Par consé- 
quent, ICARE ne supporte pas que 
l’on donne à MAXFILES une valeur 
supérieure ou égale à 4. 


Après examen du listing source, je 
pense que & PROUT "TOTO”, 
A$,B$,"TITI” envoie une chaîne de 
caractères à l'imprimante sans passer 
par un PR#1; mais, à l'instar du & 
HARDCOPY, cela ne marche que 
sur une Epson équipée d'une inter- 
face Epson. 


Transférer un écran 80 colonnes 
pour pouvoir le récupérer intégrale- 
ment, après avoir utilisé l'écran à 
d’autres fins : cela doit être anodin ! 
Après avoir passé un jour, et surtout 
une partie de la nuit suivante, j'en 
conclus que ce n'est pas aussi anodin 
qu'il n'y paraît. 

En deux mots : 

Je transfère le 1/2 écran en mémoire 
principale de 1024 à 2048, vers la 
mémoire auxiliaire de 10240 à 
11264. 

Idem pour le 1/2 écran en mémoire 
auxiliaire que je transfère de 1024 à 
2048 vers la mémoire principale de 
10240 à 11264, au moyen de la 
routine AUXMOVE. 

J'efface partiellement l'écran. 

Je transfère dans l’autre sens, les 2 
1/2 écrans sauvegardés en mémoire 
principale et mémoire auxiliaire de 
1024 à 11264 vers 1024 à 2048 res- 
pectivement en mémoire principale 
et mémoire auxiliaire, hélas. un seul 
revient. 


M. De Crecy. Versailles 


Votre programme fonctionne parfai- 
tement bien. à condition de ne pas 
être en 80 colonnes (mais on ne 
peut alors vérifier que la seconde 
moitié revient correctement). 

En effet, la mise en 80 colonnes met 
le commutateur 80STORE en posi- 
tion ON (par l'équivalent d’un POKE 
-16383,0), ce qui a pour consé- 
quence que AUXMOVE ne fonc- 
tionne pas correctement avec la par- 
tie de la mémoire correspondante à 
la page texte ($400-$7FF), car AUX- 
MOVE utilise les commutateurs 
RAMRD et RAMWRT sur lesquels 
80STORE a priorité. Par conséquent, 
vous devez mettre 80STORE en po- 
siion OFF (par l'équivalent d’un 


POKE -16384,0) avant d'appeler 
AUXMOVE. Par exemple : 
LDA #$0 


STA $C000,; met 80STORE off 

SEC ou CLC selon la direction : 
principale (-) auxiliaire 

JSR $C311; appel de AUXMOVE 
LDA #$0 


THSREHIR 


 STA $C001,; remet 80STORE on 
RTS 


. Peut-on transformer un fichier avec 


par exemple : A$(80,80),B$(200,1) 
en fichier binaire, pour accélérer le 
chargement (environ 2 minutes avec 
DOS 3.3) et qu'il puisse opérer avec 
un programme Basic utilisant des 
A$(LL) ? Mes essais ont été infruc- 
tueux. 


M. Boyer Chatillon 


En ce qui concerne le problème de 
la transformation d'un tableau de 
chaînes en fichier binaire, il faut, 
pour le faire, écrire une routine en 
assembleur, relativement complexe 
(à la différence d’une routine identi- 
que pour les tableaux de variables 
réelles), car, si le descriptif du tableau 
des chaînes est une table placée à un 
endroit connu de la mémoire, les 
chaînes en revanche se trouvent dis- 
persées dans la zone comprise sous 
la HIMEM. 

La seule réalisation à ma connais- 
sance sur ce sujet, est celle de Nibble 
"AMPER-SPEED” (dans Nibble Ex- 
press Volume III, que vous pourrez 
trouver chez votre revendeur, SIVEA 
par exemple). Le gain de vitesse est 
d'un facteur trois seulement, car la 
routine ne créé pas de fichier binaire, 
mais accélère les opérations sur les fi- 
chiers texte en court-circuitant les 
commandes du DOS. 


Utilisation Gesmask modifié (POM'S 
n° 14) sous PRODOS : je n'arrive 
pas à le faire fonctionner, il doit sans 
doute y avoir des changements 
d'adresses, donc de lignes de pro- 
gramme, mais lesquels ? Mon niveau 
actuel ne me permet pas d'y répon- 
dre. De plus, je suppose que BASI- 
CIUM ne doit pas fonctionner sous 
PRODOS. 


M. Swiderski Bourgoin-Jallieu 


En ce qui concerne Gesmask modifié 
sous ProDOS, il faut faire les modifi- 
cations habituelles pour que le pro- 
gramme  Applesoft marche sous 
ProDOS : 


e il faut remplacer à la ligne 20: 
D1$=CHR$(13)+D$ par 
D1$=D$. 

e faire un BLOAD d'une image 
texte ($400-$7FF) donne un 
"NO BUFFERS AVAILABLE” car 
ProDOS n'aime pas charger un fi- 
chier à cet endroit. 


Pour y remédier, il suffit de faire la 
même chose que sous DOS (Pom's 
n° 9, page 27; errata Pom's n°10 


page 73). 

Le BASICIUM fonctionne parfaite- 
ment sous ProDOS, après quelques 
opérations indiquées dans son ma- 
nuel d’utilisation. 
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Disquettes 


(cf. Pom's n° 5) 
(cf. Pom's n° 8) 
(cf. Pom's n° 10) 
(cf. Pom's n° 11) 
(cf. Pom's n° 12) 
(cf. Pom's n° 12) 
(cf. Pom's n° 13) 
(cf. Pom's n° 15) 
(cf. Pom's n° 15) 
MAX (Moniteur étendu) (cf. Pom's n° 18) 
DOMINOS (cf. Pom's n° 19) 


Recueils 


N°1, recueil des revues 1 à 4 
Disquettes d'accompagnement 1 à 4 
N°2, recueil des revues 5 à 8 
Disquettes d'accompagnement 5 à 8 


Anciens numéros 


Revues 4 7 8 35,00 F 


Revues 9,10 11 12 13 14 15 16 17 18 19 40,00 F 
Disquettes Apple II, //e, //c 
1/22 3 4 5 6 7 8 9 10 11 12 55,00 F 
13 14 15 16 17 18 19 
Disquettes Macintosh 
14/15/16 groupées 150,00 F 
17 18 19 80,00 F 


Abonnements Pour 6 numéros à partir du n°L____] 


Abonnement à la revue 200,00 F 
Abonnement aux disquettes Apple II, //e, //c 280,00 F 
Abonnement aux disquettes Macintosh 400,00 F 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 


Imprimerie Rosay, 94300 Vincennes, Imprimé en France. Dépôt légal : Juillet 85. N° 4765 
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résultats du sondage 


Lecteurs 







Sondage Pourcentages 


















Lecteurs Basic : Débutant : Revue : 







Pascal : 
Forth : 
Logo : 13.20 & 
6502 : 


Apple //c : 
Apple ][+ : 
Apple //e : 


Kiosque : 












Hommes : : À. averti : Salons : 
Haut niv. : 7.25 


Boutique : 
















Femmes : 






Seïkosha : 




























- de 15 65C02 : Disq. dur : 2.04 & Centronic : 
15à19 68000 : 1.67 HF Table Tr.: 1.30% 
20 à 24 Lisp : 3.16 ÉÈE 





25 à 34 
35 à 45 : 
+ de 45 


Cobol : 
Fortran : 














CP/M : 15.30 % 






Travail 





Présentation : 3.50 
Intérêt progr. : 3.78 


















Domicile : Banos d'ess. : 3.23 
Micro-infos : 3.65 


Disquettes : 


Originalité pr. : 2.86 
Clarté articl. : 3.19 
Intérêt pédag. : 








Travail : 



















Heures par semaine : 





Moins de 2 heures : 3.35 % 
De 3 à 8 heures : 41.08 & 

De 9 à 16 heures : 34.76 & 
Plus de 16 heures : 20.82 % 








Voici les résultats du sondage pro- 
posé dans Pom's n°17 et auquel 
823 lecteurs ont bien voulu répon- 
dre. 


Il est difficile de dire si l'échantillon 
des personnes qui ont répondu est 
représentatif ou non du lectorat 
complet de notre revue. Cependant, 
vous remarquerez que le nombre de 
réponses est assez grand pour que 
les résultats soient significatifs, même 
s'ils ne sont pas parfaitement repré- 
sentatifs. 


Nous constatons, tout d'abord, et 
cela confirme nos observations faites 
à partir du courrier des lecteurs, le 
faible pourcentage de lectrices: c’est 
dommage ! Ensuite, sachez que vous 
êtes plus de la moitié, sur la totalité 
des lecteurs qui ont participé au son- 


dage, à passer plus de neuf heures à 
câliner votre matériel. Bravo. 


Pour toux ceux qui croyaient que 
Pom's était l'exclusivité de quelques 
jeunes "bidouilleurs de génie”, déso- 
lés de les décevoir; la revue est lue 
par des personnes de tous âges. 


En moyenne, chaque lecteur possède 
13 numéros de notre revue, vous 
êtes donc un grand nombre à avoir 
la collection complète; vous êtes sur 
la bonne voie, nous l’apprécions. 


Au niveau des langages, Basic est en 
tête, c'est normal... Néanmoins, dans 
les divers assembleurs, nous obte- 
nons un pourcentage de plus de 40 
%, excellent résultat. Pascal assure 
une bonne prestation, suivi de près 
par la performance de Logo. LSE ? 
nous en rions encore ! 


Le tableau ci-joint, obtenu à l’aide 
d'un programme ‘’maison”, n'indi- 
que bien sûr que le résultat de don- 
nées discrètes”. Vos appréciations 
ont été analysées manuellement” et 
appellent quelques commentaires. 
Tout d'abord, vous êtes dans l’en- 
semble satisfaits de la revue: nous 


allons donc continuer dans le même 
sens, tout en améliorant certains 
points comme, par exemple, la pré- 
sentation. Vous pouvez d'ailleurs 
constater que, dans ce numéro, les 
listings des programmes sont beau- 
coup plus lisible que par le passé, et 
nous essaierons de faire fois la pro- 
chaine mieux ! Les utilisateurs d’'Ap- 
ple /! comprennent, acceptent et, 
dans la plupart des cas, apprécient la 
présence du cahier Mac”. Les utili- 
sateurs du Macintosh sont satisfaits 
du cahier”, bien que regrettant le 
nombre de pages relativement limité 
consacré à leur appareil. Toutefois, 
nous pensons qu'une dizaine de 
pages de renseignements utiles sont 
préférables à cinquante pages de... 
n'importe quoi. Si l’on veut prendre 
un exemple, le listing de “Lucy”, pu- 
blié dans ce numéro, en dit beau- 
coup plus sur le fonctionnement de 
la machine que la totalité de ce que 
l'on à pu voir jusqu'à présent dans la 
presse spécialisée. À noter que près 
de 30 % des utilisateurs du Mac utili- 
sent aussi un Apple //. 


Voulez-vous en avoir plus pour votre argent dans le domaine des cobies area 
tilisateur, ache 
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@ programmer 
$ un ordinateur est 
devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
mm pour vous. LIST vous aide à tirer davantage 
Éà {| de votre matériel, à vous perfectionner 

RUN dans la conception des programmes 
M qui “tourneront” sur votre machine. 

LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l'actua- 
lité et vous fournit trucs, astuces et idées 
pour mieux programmer... 

Pour être sûr de ne rater aucun numéro 
et pour recevoir LIST chez vous, 
abonnez-vous! 


VOTRE CADEAU ! 


,\ __— D'un format pratique (11,5 x 
pl we 25 cm), le TRANS’BASIC est 
Æ=]\ une table de conversion des 
instructions BASIC des 
21 micro-ordinateurs les 
plus courants. Ce livret de 

24 pages vous permettra 
d'adapter sur votre ordi- 
\ nateur la plupart des 

| programmes conçus 
#%\ pour les autres 
machines. 
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BULLETIN D’ABONNEMENT 
(à retourner à LIST - Service Abonnements - 5, place du Colonel Fabien - 75491 Paris Cedex 10) 
Nom Prénom 
Adresse 
Ville Code postall_1 111] Pays 


Veuillez m'abonner pour 10 numéros au prix avantageux de 160 F* au lieu de 200 F = prix total au numéro = et m'adresser en cadeau 
le TRANS'’BASIC. Je joins mon règlement indispensable libellé à l'ordre de LIST. 
* Belgique : 1330 FB; Suisse: 50 FS; Canada: 30 $C; autres pays: 210 FF. Par avion: Afrique Francophone: 245 FF; Amérique, autre Afrique, Océanie: 305 FF; Asie: 355 FF: 


ue: Soumillion, 28, av. Massenet, 1190 Bruxelles. Versement Société Générale 2100405 835-39, Suisse: 19, route du Grand-Mont, CH 1052, Le Mont-sur-Lausanne, 
0-2418 Le Mont CH 1052, compte courant n° 650156-7. Canada: LMPI, 9345, rue de Meaux, St Léonard (Québec), H1R 3H3, Canada. 


1 
versement Caisse SEA et de Crédit, 1 


pays: 5, place du Colonel Fabien, 75491 Paris Cedex 10, 





